Range sayfaya fitleme

[mamita]

Herkese merhaba,

Vbada excel sayfasını Pagesetup fonksiyonu kullanarak tek sayfa olacak sekilde PDF e cevirebiliyorum fakat excel alanındaki bölge icin Pagesetup kullanamadım dolayısıyla alanı tek sayfaya sıgdıramadım Bu konuda yardımcı olabilecek arkadaşlar varsa memnun olurum

 

[AdemCan]

Merhaba,

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"

gibi hücre aralığı tanımlaması yapabilirsiniz.

 

[mamita]

Merhaba,
İlginiz için teşekkür ederim o kodu ben de görmüştüm fakat sub kısmına yediremedim Sorunu daha net açıklamak adına kod ile anlatmak isterim
Aşağıdaki "ws" objesini sayfa Worksheet olarak tanımladığımda sayfaya sığdırma işlemi çalışıyor Fakat bunu range ifadesi kullanarak denediğimde pagesetup ifadesini çalıştıramadım Yardımcı olabilecek arkadaşlar varsa memnun olurum

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("BASKISIZ")
With ws.PageSetup
.Orientation = xlLandscape
.Zoom = False

.FitToPagesTall = 1
.FitToPagesWide = 1

End With

Set ws = Nothing

 

[AdemCan]

End With satırından önce .PrintArea = "$A$1:$D$14" şeklinde kullanabilirsiniz.
Eğer olmazsa dosyanızı paylaşır mısınız?

 

[mamita]

Çok teşekkür ederim, belirttiginiz sekilde calıştı
İlk başta
With ws.PageSetup.PrintArea= ... seklinde denemiştim fakat calısmamıstı

 

[AdemCan]

Rica ederim.