Delphi ile toplu pdf yazdırma.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 702
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Delphi ile toplu pdf yazdırma.

Mesaj gönderen ender_arslanturk » 30 Ara 2018 05:45

Selâmlar,

Forumda da belli bir süre arattım ancak bulamadım. Bir klasörde bulunan pdf'leri hiç ekranda göstermeden toplu bir şekilde yazdırmak istiyorum. Bunu hangi bileşen ile nasıl yapabilirim?

Teşekkürler.

Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2140
Kayıt: 12 Haz 2003 03:05
Konum: merkez camii yanı

Re: Delphi ile toplu pdf yazdırma.

Mesaj gönderen freeman35 » 31 Ara 2018 08:13

Sanırım hazır yapılmışı varmış :)
https://stackoverflow.com/questions/205 ... showing-it
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!

Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 702
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Re: Delphi ile toplu pdf yazdırma.

Mesaj gönderen ender_arslanturk » 31 Ara 2018 03:11

Kod: Tümünü seç

Function PdfDosyaYazdir(var PdfYollari : TStringList):Boolean;
var
        I:Integer;
begin
        Result:=False;
        
        for I:=0 to PdfYollari.Count-1 do
        If Trim(PdfYollari[I])<>'' Then
        begin
                  AcroPdf.printWithDialog;
                  //AcroPdf.ShowAboutBox;
                  AcroPdf.setShowToolbar(False);
                  AcroPdf.setShowScrollbars(False);
                  AcroPdf.SetDesignVisible(False);
                  AcroPDF.setShowToolbar(false);

                  AcroPDF.setPageMode('none');
                  //AcroPDF.SetPageSize('custom');

                  //AcroPdf.printPages(1,10); //1. sayfadan 10. sayfaya kadar yazdır
                  AcroPdf.printPagesFit(1,1,True);//1. sayfa ile 10. sayfa arasındakileri sığdır

                  AcroPDF.src:=Trim(PdfYollari[I]);
                  //AcroPDF.LoadFile(Trim(PdfYollari[I]));
                  AcroPDF.printAll;
        end;
        
        Result:=True;
end;
Bu şekilde bir çözüme ulaştırdım. Ancak bir yerde tam kağıt ölçülerinde yazdıramıyorum. Bildiğiniz sağlam bir komponent var mı acaba bu işi gören ?

Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3040
Kayıt: 17 Nis 2006 07:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Delphi ile toplu pdf yazdırma.

Mesaj gönderen sabanakman » 01 Oca 2019 09:32

Sistemin yazdırma tercihleri varsayılan değeri A4 ayarında olmayabilir.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .

Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 702
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Re: Delphi ile toplu pdf yazdırma.

Mesaj gönderen ender_arslanturk » 01 Oca 2019 10:43

Aslında meselemiz şu :

Bir müşterimiz pdf dosyalarını barkod yazıcıdan yazdırıyor. Kağıt ölçüleri 15*15 olmasına rağmen sadece pdf içinde orta kısımı büyütüp bu boyutlara yazdırıyor.

Klasörden istediğimiz yazıcıya toplu pdf yazdırma yapan pek yok sanırım. :)

Bazı pdf bileşenleri ile denemler yapıyorum sonuçları yazarım buradan.

Teşekkürler,

Cevapla