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.
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.
Kod:
Private Sub Workbook_BeforePrint(printir As Boolean)
Set rpr = Sheets("rapor")
rpr.PageSetup.CenterFooter = rpr.[M1]
Set rpr = Nothing
End Sub
Kod:
Worksheets("rapor").PrintPreview
Worksheets("rapor").PageSetup.PrintArea = ""