Yazdır makrosu

[hakki83]

Merhaba hocalarımız

Belgeyi yazıcıya göndermek için gerekli kodu bulamadım.

PrintPreview değil.
PrintOut hiç değil, çünkü Farklı Kaydet penceresi çıkıyor.

Örnek dosyada düğmeye basınca Baskı Önizleme penceresi çıkıyor ya;
(Hatta şeritte kocaman Baskı Önizlemeyi Kapat butonu var)

İşte o şeritin en solunda YAZDIR diye bir buton var. Onun kodunu bulamadım.

Bahsettiğim YAZDIR butonuna basınca, tıpkı farklı kaydet penceresine benzer bir pencere çıkıyor, ama sol üst köşede Yazdır kelimesi görülüyor.
Onu arıyorum.
Makro kaydet yöntemiyle de çıkmıyor.

 

[ulutanas]

Private Sub CommandButton1_Click()
Sheets("RAPOR").PrintPreview
Worksheets("RAPOR").PrintOut ActivePrinter:="Brother MFC-L2700dw series Printer" 'KENDİ YAZICINIZIN MARKASINI BELİRTİNİZ'

End Sub

 

[hakki83]

Hocam ben şu pencereyi soruyorum

 

[ulutanas]

Private Sub CommandButton1_Click()
Sheets("RAPOR").PrintPreview
Worksheets("RAPOR").PageSetup.PrintArea = ""
Worksheets("RAPOR").PrintOut copies:=1 ' Burada ki 1 kaç sayfa yazdırmak istiyorsanız o rakamı yazınız.'
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Kod-1;

Option Explicit

Sub Test()
    SendKeys ("^p"), True
End Sub

Kod-2;

Option Explicit

Sub Test()
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

 

[hakki83]

Emeğinize sağlık hocam.