Baskı Önizleme Sorun

[yavuz829]

Arkadaşlar UserForm da Butonla yazdırma alanını belirlemeden dolu olan satırları baskı önizlemede göstersin yazdır komutunu verdiğimiz zaman yazdırsın.

Aşağıdak kodlarla yapmaya çalışıyorum direk yazdırıyor. Bakkı önizlemede göstersin ondan sonra yazdırma komutunu vermek istiyorum.


ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & [A65536].End(3).Row

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & [A65536].End(3).Row
[B]ActiveWindow.SelectedSheets.PrintPreview
[/B]End Sub

. . .

 

[yavuz829]

Çok teşekkürler hocam ellerinize sağlık.