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

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

3 مشاركات في هذا الموضوع

السلام عليكم

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

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


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

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

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

و ذلك من قائمة

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 اعضاء متواجدين الان

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