Excelde yazdirma kodu

[boss2090]

Merhaba Arkadaslar, ben excel de yazdirmak icin asagidaki gibi bir kod buldum. Ama burda bir yanlislik var cünkü F5 dügmesine basinca hemen yazdiriyor. Bunu nasil bir Button'a görevlendirebilir nasil önizleme yapabilir sonrada yazdira bilirim. Kod u nereye yazmam gerek.
Tesekkürler!

Sub YAZDIR()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$L$38"
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut

With ActiveSheet.PageSetup
.PrintArea = "$A$39:$Q$79"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut

With ActiveSheet.PageSetup
.PrintArea = "$A$80:$S$109"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut

With ActiveSheet.PageSetup
.PrintArea = "$A$110:$K$174"
.Orientation = xlPortrait
.Zoom = 100
End With
ActiveWindow.SelectedSheets.PrintOut

End Sub

 

[Vedat Özer]

Selamlar,

Kendi yazmış olduğunuz kodlarda;

ActiveWindow.SelectedSheets.PrintOut

Silip yerine,

ActiveWindow.SelectedSheets.PrintPreview

Değiştirip deneyebilirmisiniz,

 

[boss2090]

Kod dediginiz gibi asagidaki sekilde degistirdim ama garip bir durum oldu. Önizleme sayfa sayfa yapiyor. Hepsini ayni anda yada sirayla göremiyorsunuz. son sayfa önizlemede iken önizlemeyi kapat a basinca diger sayfa aciliyor. Mesala Pdf olarak yazdirmak isdedim, ilk önce sadece sonsayfayi kaydetti sonra ikinci sayfayi...yani hepsi tek tek oldu.. ne gibi degisiklik yapabilirim.

Sub YAZDIR()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$L$38"
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview

With ActiveSheet.PageSetup
.PrintArea = "$A$39:$Q$79"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview

With ActiveSheet.PageSetup
.PrintArea = "$A$80:$S$109"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview

With ActiveSheet.PageSetup
.PrintArea = "$A$110:$K$174"
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview

End Sub

 

[boss2090]

Arkadaslar niye yardim eden birisi yok yarida kaldim...

 

[boss2090]

Uzun zamandir bir yardim alamadim. Birisi ilgilenirse sevinirim...