yazdırırken her sayfada toplam aldırma sorunu

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;

takıldığım son noktaya da yardımcı olursanız sanırım elimdeki program bitecek.

Sheets("EGITIM").Select
Application.ScreenUpdating = False
ActiveWindow.View = 2
say = ActiveSheet.HPageBreaks.Count
ilk = 2
c = -1
sontoplam = WorksheetFunction.Sum([E2:E65536])
For a = 1 To say
sat = ActiveSheet.HPageBreaks.Item(a).Location.Row - 1
Rows(sat).Insert
adr = "E" & ilk & ":E" & sat + c
c = 0
ilk = sat
toplam = WorksheetFunction.Sum(Range(adr))
Cells(sat, "d") = "Toplam:"
Cells(sat, "e") = toplam
Next
sonsat = [E65536].End(3).Row + 1
Cells(sonsat, "d") = "Total:"
Cells(sonsat, "E") = sontoplam
ActiveWindow.View = 1
satirsay = Range("A1").CurrentRegion.Rows.Count
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & satirsay
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


bu makro sayfadaki satır sayısını sayıyor ve alt toplam alıyor. Yazıcı çıktısını alınca ilk sayfanın sonuna toplam alıyor diğer sayfaya geçtiğinde diğer sayfanın dolu son satırına kadar yazdırıp bırakıyor yani toplam aldıramıyorum. kodun neresinde değişiklik yapmam gerekir.
ilginize teşekkür ederim.

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;

yukarıda sorduğum soru ile ilgili program ekte bana göre küçük aksaklıkları olsa da bitti. buyrun birde siz bakın. düzeltilmesi gereken bir yer varsa düzeltelim bu programın özelliği sadece vergi iade zarfı yazması değil muhasebecilerin tutması gereken aylık mahsup çizelgesi de var. ben dataları ticari bir programdan text olarak aldığım için personel isimleri vergi matrahları ve vergileri girecek bir form yapmadım veri sayfasına ekleyebilirsiniz. eğer geliştirilirse bende almak istiyorum. ilgilenen herkese teşekkürler.