اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اريد ماكرو للطباعة من الدرج 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]

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information