1

Konu: PDF Çeviricileri

Merhaba,
Bir kaç farklı raporu (frx) tek bir pdf dosyasında birleştiren PDF çeviricisi var mı?

/o---------------------o\
     www.haser.com
\o---------------------o/

2

Re: PDF Çeviricileri

Merhaba Tarkan;

PDFFactory adında bir program var. Kendisini sanal bir windows yazıcısı olarak kuruyor. Eğer bu yazıcıyı default yazıcı olarak seçersen yazdırdığın tüm belgeler otomatik olarak PDFactory içerisine birikiyor. Bu dosyaları ister tek tek istersende tüm olarak PDF formatında kaydedebiliyorsun.

Program kendisini shareware olarak kuruyor. ASTALAVISTA gibi bir siteden serial ı kolayca bulunabilir.

Ayrıca bu programı forumuumuzdaki tüm arkadaşlarada tavsiye edebilirim. Kesinlikle bağımlılık yapıyor. smile

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

3

Re: PDF Çeviricileri

tarkan;

xfrx bu işi gayet güzel yapıyor.
bende çalışan bir uygulama var.

Bilmediğin Neyse Yanıldığındır.

4

Re: PDF Çeviricileri

PDFCreator var, OpenSource  www.pdfforge.org dan indirebilirsiniz. Oldukça kullanışlı, birden çok raporu birleştirebiliyor. Daha birçok özelliği var türkçe olabiliyor. Tabi freeware olması güzel.

5

Re: PDF Çeviricileri

tarkan;

Visual Fox Pro
Select fatura

Locate For Id=FATURAcursor.Id
If Found()
    If fatura.kackereyaz>0
        Messagebox(Alltrim(Str(fatura.kackereyaz))+' defa yazdırıldı veya e-mail gönderildi.')
    Endif
    Replace fatura.kackereyaz With fatura.kackereyaz+1
    =Tableupdate(.F.,.T.,'fatura')
    Select cari
    Locate For cari.mkod=fatura.mkod
    If Found()
        Local LCSAYAC
        LCSAYAC=1
        Select faturasatir
        Go Top
        Do While .Not. Eof()
            If faturasatir.Id=fatura.Id
                If LCSAYAC % 12= 0
                    Replace sayfano With Int(LCSAYAC  / 12)
                Else
                    Replace sayfano With Int(LCSAYAC  / 12) + 1
                Endif
                LCSAYAC  = LCSAYAC  + 1
            Endif
            Select faturasatir
            Skip
        Enddo
    Else
        Wait Window 'Faturaya ait Cari Bulunamadı.' Nowa
        Return=.T.
    Endif
Endif
Local loObj, tcExportName
tcExportName='pdfreports\'+'Invoice_'+Alltrim(Str(fatura.inv_no))+'.pdf'
loObj    = Evaluate([XFRX("XFRX#LISTENER")])
lnRetVal = loObj.setparams(m.tcExportName,,.F.,,,,'pdf')
If lnRetVal = 0
    Wait Window (Str(fatura.Id)+' Nolu Fatura Oluşturuluyor...') Nowa
    Select fatura
    Locate For fatura.Id=FATURAcursor.Id
    If Found()
        Select cari
        Locate For cari.mkod=fatura.mkod
        If Found()
            Select faturasatir
            Public odemesekli
            If fatura.odemevadesi=1
                m.odemesekli='Payment Terms: Pre Payment'
            Endif
            If fatura.odemevadesi=2
                m.odemesekli='Payment Terms: 10 Days net after invoice date'
            Endif
            If fatura.odemevadesi=3
                m.odemesekli='Payment Terms: 20 Days net after invoice date'
            Endif
            If fatura.odemevadesi=4
                m.odemesekli='Payment Terms: 30 Days net after invoice date'
            Endif
            If fatura.odemevadesi=5
                m.odemesekli="Payment Terms: 30 Days net after invoice date, 3% Payment Discount within 10 days after invoice date"
            Endif
            If Empty(fatura.odemevadesi)
                m.odemesekli='Payment Terms:'
            Endif
            Report Form Reports\invoice Object loObj For faturasatir.Id=fatura.Id Nopageeject
            Release odemesekli
        Else
            Wait Window 'Fatura Bulunamadı.'
            Return=.T.
        Endif
    Else
        Wait Window 'Plan Bulunamadı.'
        Return=.T.
    Endif
    Select Id,ord_no From faturasatir Where faturasatir.Id=FATURAcursor.Id Into Cursor orders
    Select orders
    Go Top
    Scan
        Select plan
        Locate For plan.sip_no=orders.ord_no
        If Found()
            Select plan
            If Found()
                Select cari
                Locate For cari.mkod=plan.mustrkod
                If Found()
                    Select sonkul
                    Locate For sonkul.no=plan.sonkkod
                    If Found()
                        Wait Window (plan.sip_no+' Oluşturuluyor...') Nowa
                        Select plansatir
                        Report Form Reports\Enclosure Object loObj For plansatir.Id=plan.Id Nopageeject
                    Else
                        Wait Window 'Faturaya ait End User Bulunamadı.'
                    Endif
                Else
                    Wait Window 'Faturaya ait Cari Bulunamadı.'
                Endif
            Else
                Wait Window 'Plan Bulunamadı.'
            Endif
        Else
            Wait Window 'Faturadaki order Plan da Bulunamadı.'
        Endif
        Select orders
    Endscan
Endif
loObj.finalize()
loObj = .Null.
m.kimee=Iif(Empty(Alltrim(cari.email)),'Noname',Alltrim(cari.email))
m.konuu='Invoice_'+Alltrim(Str(fatura.inv_no))
m.aciklamaa=' '
m.ekdosya=Sys(5)+Curdir()+tcExportName
#Define olAppointmentItem 1
#Define olTaskItem 3
#Define CR Chr(13)
If Vartype(oOutlook) <> "O"
    Release oOutlook
    oOutlook = Createobject("Outlook.Application")
Endif
oNameSpace = oOutlook.GetNameSpace("MAPI")
oExplorer = oOutlook.Explorers.Add(oNameSpace.Folders[1],0)
oMailItem = oOutlook.CreateItem( 0 )
oMailItem.Subject = m.konuu
oMailItem.Recipients.Add(m.kimee)
oMailItem.BODY = m.aciklamaa
oMailItem.Attachments.Add(m.ekdosya)
oMailItem.Save()
Release oOutlook
Wait Window 'Successfull' Nowa

cetin abi;

public için kusura bakma. eskiden kalmış.
yeni fark ettim en kısa zamanda düzelteceğim. big_smile
nerede bir public görsem sanki cetin abi kafama odunla vuruyormuş gibi hissediyorum.:P

Bilmediğin Neyse Yanıldığındır.

6

Re: PDF Çeviricileri

Foxman ,
pdfforge.org un creator unun kullanimi ile ilgili ornek varmi ?

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpg

7

Re: PDF Çeviricileri

selamlar;

soykanozcelik yazdı:

Ramazan,
pdfforge.org un creator unun kullanimi ile ilgili ornek varmi ?


soykan onu ben değil foxman yazdı.
programı indirdim ama bi şey anlamadım.
bende aynı soruyu soruyorum şuan.

Bilmediğin Neyse Yanıldığındır.

8

Re: PDF Çeviricileri

PDFCreator de diğerleri gibi printer driver olarak yükleniyor, ben şimdilik o şekilde kullanıyorum. Daha yeni kullanmaya başladığım için detaylı bilgim yok. Windows menusune bazı programlar yükleniyor oradan ayarlarını yapabiliyorsunuz. PDFCreator ghostscipt istiyor https://sourceforge.net/project/showfil … p_id=57796 sitesinden indirebilirsiniz. Ayrıca PDFCreator ile PNG, JPG, TIFF, BMP, PCX, PS, EPS çıktılarıda alabiliyorsunuz. Bu konuda birşeyler yaparsam (özellikle foxpro içinden otomatik kullanım ile ilgili) veya bulursam iletirim.

9

Re: PDF Çeviricileri

Arkadaşlar PDFFactory 'yi denemenizi tavsiye ederim ...

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

10

Re: PDF Çeviricileri

Uğur,
PDF printer driver iyi ama arka planda .PDF file olusturulabilmeli istenirse mail istenirse reader ile acarak kullaniciya gosterilebilmeli boyle bir cozum daha efektif geliyor bana

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpg

11

Re: PDF Çeviricileri

o zaman xfrx. senin için oluşan dosyayı .zip dosyası haline bile getiriyor... frx2any de aynı işi yapıyor ama xfrx daha iyi (ben aldığım zaman öyleydi, bu ikisi sürekli yarış halinde). türkçe pdf sorunu da yok şu an.

soykanozcelik yazdı:

Uğur,
PDF printer driver iyi ama arka planda .PDF file olusturulabilmeli istenirse mail istenirse reader ile acarak kullaniciya gosterilebilmeli boyle bir cozum daha efektif geliyor bana

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

12

Re: PDF Çeviricileri

Arkadaşlar hepinize tek tek teşekkür ederim.

FinePrint pdfFactory programını inceledim. Gerçketen güzel bir program ve registry'ları kullanarak yazılımı idare edebiliyorsunuz. Ayrıca benim aradığım en önemli özellik olan birden fazla raporu tek bir pdf dosyasında birleştirebiliyor. Daha bir çok özelliği var. (otomatik yazdırma, e-posta gönderme, ön izleme yapma, birden fazla sayfayı tek sayfada birleştirme vs.)

Uğur, tekrar teşekkür ederim.

/o---------------------o\
     www.haser.com
\o---------------------o/

13

Re: PDF Çeviricileri

Selam Tarkan,

Rica ederim, keyifti. Sadece vakit ayırarak ne kadar işe yarayabildiğini gördüysen sevindim. smile

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü