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

[عمر محمد]

السلام عليكم

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

[محمد طاهر عرفه]

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

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

و ذلك من قائمة

Tools

Macro

Record New Macro

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

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

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

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

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

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

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

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

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

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]

[عمر محمد]

جزاك الله خير اخي الحبيب

سوف اطبق التعليمات وإن شاء الله تنجح