Tek sayfaya sığdırma

[hakki83]

Merhaba hocalarımız

Tek sayfaya sığdırma kodunu dosyaya uyguladım fakat olmadı.

Amacım ekteki örnek gibi yatay olarak yazıcıdan çıkması gereken belgeyi, otomak olarak küçültüp tek kağıda sığdırıp basabilmek.

 

[AdemCan]

Kodu güncelleyiniz.

Private Sub CommandButton1_Click()
Application.PrintCommunication = False
ActiveSheet.PageSetup.Orientation = xlLandscape 'Yatay döndürmek için

With ActiveSheet.PageSetup 'Sayfayı tek kağıda sığdırmak için
.FitToPagesWide = 1 'Sayfayı tek kağıda sığdırmak için
.FitToPagesTall = 1 'Sayfayı tek kağıda sığdırmak için
End With 'Sayfayı tek kağıda sığdırmak için

Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintPreview 'Baskı önizleme için

End Sub

 

[hakki83]

AdemCan hocam çok güzel oldu, teşekkür ederim, emeğinize sağlık.

 

[AdemCan]

Rica ederim.