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: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Delphi ile toplu pdf yazdırma.

Mesaj gönderen ender_arslanturk »

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: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: Delphi ile toplu pdf yazdırma.

Mesaj gönderen freeman35 »

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: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Re: Delphi ile toplu pdf yazdırma.

Mesaj gönderen ender_arslanturk »

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: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Delphi ile toplu pdf yazdırma.

Mesaj gönderen sabanakman »

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: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Re: Delphi ile toplu pdf yazdırma.

Mesaj gönderen ender_arslanturk »

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