بحث مخصص من جوجل فى أوفيسنا
Custom Search
  • 0
عمر محمد

اريد ماكرو للطباعة من الدرج 2

السؤال

السلام عليكم

أريد عمل ماكرو وظيفته الطباعة من الدرج رقم 2 مباشرة بدلا من الذهاب إلى خصائص الطابعة واختيار الدرج 2

شارك هذه المشاركه


رابط المشاركه
شارك

2 اجابات علي هذا السؤال

  • 0

و عليكم السلام و رحمة الله و بركاته

اذا كان طلبك ثابت أو به تغييرات بسيطة ، فيمكنك تسجيل ماكرو أو أكثر و استخدامه كما هو

و ذلك من قائمة

Tools

Macro

Record New Macro

ثم قم بتنفيذ طلب الطباعة كما ترغبه

و اضغط على زر ايقاف التسجيل

ثم استدع الماكرو من القائمة أو اضغط ALT+F8 و شغله

و يمكنك تحديد اختصار لتشغيله عند بدء التسجيل أو وضع ايقونة له ، أو

بعد انتهاء التسجيل ، اضغط على شريط الايقونات فى أي مكان خالى و اختار تخصيص Customise ثم اذهب الى ماكرو و اسحب الماكرو الى شريط الايقونات ، و يمكنك بعد ذلك اختصار اسمه او اضافة ايقون له

أما اذا كان لديك أكثر من طابعة و أكثر من درج و تحتاج للتحكم فى مقاس الورق و عدد النسخ عند الطباعة فأكمل قراءة الموضوع :wink2:

هذه دالة عامة قمت باعدادها للتحكم فى المتغيرات التي نحتاجها

مثل اسم الطابعة ، حجم الورق، الدرج المطلوب ، عدد النسخ

و للتعرف على القيم المناظر لطابعتك قم بتسجيل اي ماكرو لتعرف القيم المناظرة لها


Sub printme(myprinter, mysize, mytray, mycopies)
Call defineprinters
ActivePrinter = myprinter

With ActiveDocument.PageSetup
.PaperSize = mysize
.FirstPageTray = mytray
.OtherPagesTray = mytray
End With
ActiveDocument.Save

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=mycopies, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
[/sql]

و يمكنك استبدال المتغيرات أعلاه بقيمها اذا لم يكن لديك خيارات كثيرة

اما ان كنت تختار بين أكثر من طابعة و لك أكثر من خيار

فيمكنك تعريف الطابعات و استدعاء الكود اعلاه مع تغيير المتغيرات كما سيلي

و هذه عملية تعريف للطابعات التي قد أطبع اليها كمثال

[sql]

Public P1, P2, P3, P4, P5, H1, Dig, PDFc, Sng, Home1 As String


Sub defineprinters()
P1 = "HP Color LaserJet CP3505 PCL 6"
P2 = "HP5550-012"
P3 = "HP3505-036 (Main)"
Dig = "Microsoft Office Document Image Writer"
PDFc = "PDFCreator"
Sng = "SnagIt 8"
Home1 = "EPSON Stylus CX4300 Series"

End Sub

ثم نستدعى عملية الطباعة بناء على ما سبق

مثال للطباعة:

هنا اخترت بناء على اعدادات طابعتى الطباعة على الطابعة الاولي فى التعريفات اعلاه ، و مقاس A4 ، الدرج الثاني ، و نسختان

و طبعا لكي تعرف أن 260 تناظر الدرج الثاني ، قم بتسجيل أي ماكرو و تفحصه


Sub PP1plain2()
Call printme(P1, wdPaperA4, 260, 2)
End Sub
[/sql]

شارك هذه المشاركه


رابط المشاركه
شارك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .


سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.


سجل دخولك الان

  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه