makro yazıcıda sığdır özelliği

[red_lion_72]

selam,

Yazıcıdan çıktı alırken 1 sayfaya sığdır özellliğini nasıl aktif edebilirim. Yani 5 sayfalık bir excel dökümanım var ve bunu çıktı alırken 1 sayfaya sığdırmasını istiyorum. Makro ile nasıl yapabilirim teşekkürler.

Forumda baktım bulamadım.

Kolay gelsin.

 

[Haluk]

Macro kaydet ile bu kodlar çıktı...

ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

 

[red_lion_72]

Sn. Raider bende aldım bu kodları fakat galiba bir sorun var
Userform içersinden,
Sheets("sayfa1").Pagesetup.FitToPagesWide = 1
Sheets("sayfa1").Pagesetup.FitToPagesTall = 1
olmuyor. Sayfa özelliklerini getirmiyor maalesef. Teşekkürler.

 

[Haluk]

İlginç..... başka bir sorun olabilir kodlarda.

 

[red_lion_72]

With Sheets("sayfa1").PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With

Kaydet ile aldığım kodların hepsini yazdım. Baskı önizlemeye gidiyordu onu kaldırdım. Þimdi tamam. Dün bunu da denemiştim olmamıştı. Teşekkürler.

Kolay gelsin.

 

[ahmet79]

yazırma yapacağınız sayfada önce yazdırma alanını aşağıdaki kodlar ile belirleyip (a1:h29 yerine sizin yazdırma alanınızı yazın) ActiveSheet.PageSetup.PrintArea= "$A$1:$H$29" daha sonra sayın raiderin vermişolduğu kullanın enson satıra da aşağıdaki kodu yazdırma alanını iptal etmek için ekleyip denerseniz olabilir
ActiveSheet.PageSetup.PrintArea = ""

 

[red_lion_72]

Sn. Ahmet79 her seferinde bu alan değişiyor. Gerçi yazdırma alanını sayıp bulabilirim ve buraya atayabilirim ama söylediğim şekilde çözüldü. Bunu acil tamamlamam lazım. Daha sonra sizin dediğiniz şekilde deneyeceğim.
İlginize teşekkür ederim.