كود اختيار الطابعة

[mselmy]

هل توجد اكواد تجعل البرنامج يختار طابعه معينة عند الطباعة بغض النظر عن الطابعة الافتراضية

[طارق محمود]

السلام عليكم

إن شاء الله يوجد

تفضل

Sub printer()
'
'
    Application.ActivePrinter = "XXXX"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "XXXX", Collate:=True
End Sub

حيث XXXX هو إسم الطابعة المراد إختيارها علي أن تكون معرفة لدي الجهاز مسبقا