Skip to main content

AccessTr.neT


DOC u PDF Çevirme

DOC u PDF Çevirme

Çözüldü #1
Sayın Hocalarım bilirsiniz pdf creator diye free bir program vardır aşağıdaki kod ile dışarıdaki bir word belgesini yazdırmaya çalışıyorum fakat veri tabanı ilk açıldığında kod güzel çalışıyor ve doc u pdf e çeviriyor 2. veya 3. işlemlerde bahtınıza ne çıkarsa olayı oluyor bazen çalışıyor bazen çalışmıyor bunu neye yorabiliriz. Engin deneyimlerinizden yardımlarınızı bekliyorum. Direk olarak seçilen yazıcıya documanı açtırmadan göndermemiz mümkünmüdür.

Private Sub Komut84_Click()
Dim WordApp As Word.Application
Dim AYol As String
AYol = "C:\Evraklar\" & [TeklifNo] & ".doc"
Application.FollowHyperlink AYol, , True
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo ErrHandler
WordApp.Documents.Open (AYol)
WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize

ActivePrinter = "PDFCreator"
Word.Application.PrintOut FileName:=AYol


Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing


End Sub
Çözüldü #2
Ben sizin kodlarınızı bir forma uyguladım. Referans olarak da Word Office12 kütüphanesini yükledim. Fakat sadece aktif yazıcı olarak PrimoPdf kullandım. Sorunsuz çalışıyor. Bence ücretsiz bir yazılım olan PrimoPdf kurun ve onun sanal yazıcısını kullanın.
İnadına, ille de Accesstr.net...
Çözüldü #3
sanal yazıcı olarak PDF ye başka bir altenatif ; PDF24 sınırsız süresiz tavsiye edrim.
[Resim: gif48.gif]
Çözüldü #4
Örnek Dosya alternatif bir seçenek olabilir.
.rar pdf.rar (Dosya Boyutu: 39,08 KB | İndirme Sayısı: 80)
FX-Etopla
Liste Kutusu Oluşturma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da