Baskı Önizleme ve Yazdırma

[alpay1]

Baskı Ã?nizleme ve Yazdırma

Değerli arkadaşlar,
Ã?ncelikle herkezin Kurban Bayramının dostluk,sevgi ve barış içinde geçmesini dilerim.

Ben aşağıdaki kodlarla yazdıracağım sayfaya alt bilgi ekliyorum.Fakat yazdırdığım zaman her seferinde dolu sayfalardan sonra boş bir sayfayada alt bilgi alıyor ve sadece alt bilgi olan bir sayfa daha yazdırıyor.Bunu nasıl önleyebilirim?
İyi çalışmalar.

Private Sub Workbook_BeforePrint(printir As Boolean)
   Set rpr = Sheets("rapor")
    rpr.PageSetup.CenterFooter = rpr.[M1]
  Set rpr = Nothing
End Sub

Worksheets("rapor").PrintPreview
Worksheets("rapor").PageSetup.PrintArea = ""

 

[Levent Menteşoğlu]

Kodunuzun başında yazdırma alanını tanımlayın.

Sheets("rapor").PageSetup.PrintArea = "a1:g100" gibi

 

[alpay1]

leventm bey,
Yazdırma alanı sabit değil.Bazen bir sayfa bazen iki,üç sayfa olabiliyor.

 

[Levent Menteşoğlu]

Bu durumda alt değeri değişken yaparsınız.

Sheets("rapor").PageSetup.PrintArea = "a1:g" & [g65536].end(3).row gibi