Sadece ilk sayfayı yazdırmak

[EKREM1661]

Saygıdeğer Arkadaşlar..! herkese selam olsun..

Forumdaki diğer örneklere baktım, fakat sanırım benim istediğim biraz farklı..

Şöyleki; Sadece çıktı almak için kullandığım (metin biçimli) bir sayfa var, metnin uzunluğuna bağlı olarak, satır yüksekliği artınca 2.sayfaya sarkmakta ve boş bir 2.sayfa çıkartmaktadır.

(Not: Yazdırmayı excel menüsünden değil, butonla yapıyorum)

Soru: Her halükarda sadece ilk sayfayı yazdıran, diğer sayfaları yazdırmayan bir kod lazım.. (ctrl+p den sayfa seç işiyle uğraşmak istemiyorum)

 

[Ömer]

Merhaba,

Yazdırma aralığını sabitleyebilirsiniz..

Sub Yazdır()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$56"
ActiveSheet.PrintOut
End Sub

.

 

[EKREM1661]

Ömer bey.. Yazdır için aşağıdaki kodu kullanıyorum. Sizin verdiğiniz kodu aşağıdaki kod içerisinde kullanmış olmam işi çözmedi..

Private Sub A5DikBoyut_Click()
Rows("6:6").RowHeight = 24
Rows("8:8").RowHeight = 51
Columns("F:F").ColumnWidth = 10
With ActiveSheet.PageSetup
.PaperSize = xlPaperA5
Application.Dialogs(xlDialogPrint).Show
.PaperSize = xlPaperA4
End With
Columns("F:F").ColumnWidth = Range("K2").Value
End Sub

 

[Levent Menteşoğlu]

Ekrem bey kodunuz içindeki ilgili satırı aşağıdaki ile değiştirip deneyebilirsiniz.

Application.Dialogs(xlDialogPrint).Show [B][COLOR=red]2, 1, 1[/COLOR][COLOR=red][/COLOR][/B]

 

[EKREM1661]

Sayın Levent hocam..! ilgili satır sonuna dediğiniz gibi , 1, 1 ilavesini yaptım ancak değişen bir şey olmadı.. sonraki yazdırdığı boş sayfayı iptal edemedi..

 

[Levent Menteşoğlu]

Ekrem bey, yukarıdaki mesajımdaki kodu düzelttim tekrar deneyebilirsiniz.

 

[EKREM1661]

Levent Bey.. tek kelime ile harikasınız.. Çok işime yaradı.. çok teşekkür ediyorum ve hayırlı çalışmalar diliyorum..