AccessTr.neT
Aynı Sütundaki Verileri Yazdir Sayfasında A4 Sayfasına Yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Aynı Sütundaki Verileri Yazdir Sayfasında A4 Sayfasına Yazdırma (/konu-ayni-sutundaki-verileri-yazdir-sayfasinda-a4-sayfasina-yazdirma.html)

Sayfalar: 1 2 3 4 5


RE: Aynı Sütundaki Verileri Yazdir Sayfasında A4 Sayfasına Yazdırma - berduş - 28/08/2021

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


Re: Aynı Sütundaki Verileri Yazdir Sayfasında A4 Sayfasına Yazdırma - yyhy - 28/08/2021

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?


RE: Aynı Sütundaki Verileri Yazdir Sayfasında A4 Sayfasına Yazdırma - berduş - 28/08/2021

(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


RE: Aynı Sütundaki Verileri Yazdir Sayfasında A4 Sayfasına Yazdırma - yyhy - 28/08/2021

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.


RE: Aynı Sütundaki Verileri Yazdir Sayfasında A4 Sayfasına Yazdırma - berduş - 28/08/2021

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



Re: Aynı Sütundaki Verileri Yazdir Sayfasında A4 Sayfasına Yazdırma - userx - 28/08/2021

Sayın yyhy
Ekteki dosyayı inceler misin?