CTRL+P Yazdırma PAnelini Makroya nasıl atarız ?

[Probilgi]

CTRL+P Yazdırma Panelini Makroya nasıl atarız ? Forumda aradım istediğim şeyi bulamadım.

öğrenci listeleri hakkında bi çalışmam varda, her sınavda öğrenci sayısı artabiliyor 2. sayfa ve bazen 4 sayfa liste olabiliyor. CTRL+P yaptığımda 1 den 4 e kadar yazdır diyebiliyorum. eğer bunun için otomatik sayfada veri varsa yazdır gibisinden macro varsada, paylaşan olursa sevinirim

 

[Korhan Ayhan]

Selamlar

Aşağıdaki kodları kullanabilirsiniz.

Sub YAZDIR_1()
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub
 
Sub YAZDIR_2()
    Application.SendKeys "^p"
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[Probilgi]

Korhan Ayhan ve Evren Gizlen, ilgilendiğiniz için çok teşekür ederim. fazlasıyla işime yaradı

Saygılar