Önizleme görünmeden yazdırma

[BeyazGölge]

Ã?nizleme görünmeden yazdırma

Arkadaşlar bir form üzerinden yazdır butonu oluşturarak önizleme görünmeden yazıcıdan A5 kağıdına çıktı alabilirmiyiz ?

 

[xxrt]

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
With ActiveSheet.PageSetup
.PaperSize = xlPaperA5: .CenterHorizontally = True: .Orientation = xlPortrait
.Zoom = False: .FitToPagesWide = 1: .FitToPagesTall = 1
End With
Unload Me
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

[BeyazGölge]

teşekkür ederim Sağolun

 

[ahmetozbey]

xxrt,
bir sorum daha olacak. örnek sayfa1 de 2 tane yazdırma alanı var 2 tane buton kullanmak istiyorum 1 butona tıklatıldığında 1.yazdırma alanı 2.butona tıklatıldığında 2.yazdırma alanını çıkartmak istiyorum