AccessTr.neT

kastettiğiniz şeyi anlamadım, ben de baskı ön izlemeden baktım siz neyi kastediyorsunuz?

Vermiş olduğunuz makro kodu 50.000 civarındaki verileri güzel bir şekilde aktarıyor. Ben bu verileri yazıcıdan çıktı almak istiyorum. Boş sayfalar çıkmaması için Yazdırılacak kaç dolu sayfa var pratik bir çözümü var mı acaba?

(28/08/2021, 00:14)yyhy yazdı: [ -> ]Sayın berduş bey birinci kod çalışmadı hata verdi.

birinci kodu düzeltmiştim tekrar kontrol edebilirsiniz.

(28/08/2021, 00:25)yyhy yazdı: [ -> ]Boş sayfalar çıkmaması için Yazdırılacak kaç dolu sayfa var pratik bir çözümü var mı acaba?

kabaca ana tablonuzun her 350 satırının bir sayfa olduğunu düşünürsek 50000/350 mantıklı geliyor
yada yazıcı sayfasındaki satırsayısı/50

---

(28/08/2021, 00:25)yyhy yazdı: [ -> ]Boş sayfalar çıkmaması için Yazdırılacak kaç dolu sayfa var pratik bir çözümü var mı acaba?

o konuda bir fikrim yok maalesef
kodla belki olabilir

Ben de sizin gibi düşündüm sadece toplamı 350 ye bölüp kaç çıktığını bulabilme gibi. Çok sağolun teşekkür ederim. Emeğinize sağlık.

koda aşağıdaki satırları ekleyerek alan seçebiliyorsunuz ama maalesef bu durumda da çerçeve gidiyor

    SonStr = Hdf.Cells(Hdf.Rows.Count, "B").End(xlUp).Row

Hdf.PageSetup.PrintArea = Hdf.Range("B2:H" & SonStr).Address

Sayın yyhy
Ekteki dosyayı inceler misin?