Konu: PDF Çeviricileri
Merhaba,
Bir kaç farklı raporu (frx) tek bir pdf dosyasında birleştiren PDF çeviricisi var mı?
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Raporlar ve Etiketler » PDF Çeviricileri
Merhaba,
Bir kaç farklı raporu (frx) tek bir pdf dosyasında birleştiren PDF çeviricisi var mı?
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.
tarkan;
xfrx bu işi gayet güzel yapıyor.
bende çalışan bir uygulama var.
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.
tarkan;
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.
nerede bir public görsem sanki cetin abi kafama odunla vuruyormuş gibi hissediyorum.:P
Foxman ,
pdfforge.org un creator unun kullanimi ile ilgili ornek varmi ?
selamlar;
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.
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.
Arkadaşlar PDFFactory 'yi denemenizi tavsiye ederim ...
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
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.
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
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.
Selam Tarkan,
Rica ederim, keyifti. Sadece vakit ayırarak ne kadar işe yarayabildiğini gördüysen sevindim.
fox4um » Raporlar ve Etiketler » PDF Çeviricileri