Buton İle Kağıt Ebatlarını Ayarlamak

[ormann]

İyi günler ;Ekteki örnek dosyada c6 hücresine kağıtın genişliğini,e6 hücresine ise kağıtın yüksekliğini girdiğimde yazdırılacak sayfanın(zarf sayfası) kağıt ebatlarını buton ile yapmak mümkün müdür?

 

[Seyit Tiken]

Sayın Orman, şöyle bir şey yapabilirsiniz, sayfanın kenar boşluklarından yararlanarak(azaltma-çoğaltma ile) istenilen sayfa boyutlarını oluşturabilirsiniz.

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints([a1])
.RightMargin = Application.InchesToPoints([b1])
.TopMargin = Application.InchesToPoints([c1])
.BottomMargin = Application.InchesToPoints([d1])
End With

 

[omerceri]

Sn ormann
Word de aşağıdaki kod olabiliyor.

ActiveDocument.PageSetup.PageWidth = CentimetersToPoints(7)
ActiveDocument.PageSetup.PageHeight = CentimetersToPoints(14)

Excel de ise

ActiveSheet.PageSetup.PaperSize = xlPaperLegal

gibi kod geçerli
"xlPaperLegal" gibi sabitlerin listesini ve ebat değerlerini internetten bulabilirsiniz.

 

[Seyit Tiken]

Sayın Orman, aklıma şöyle bir yöntem geldi, herşeyi hazır özelliklerden beklememek gerek, biraz da tasarım mantığını öne çıkarmak lazım diye düşünüyorum. Aşağıdaki kodu kendinize uyarlamaya çalışın.

Sayfa1.[a1:g20].PrintOut

Sayfa ebatından ziyade esas olan ilgili alanı yazdırmaktır.