Access SQL
access ile Doc dosyasını pdf çevirme - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: access ile Doc dosyasını pdf çevirme (/Konu-access-ile-Doc-dosyasini-pdf-cevirme)

Sayfalar: 1 2

access ile Doc dosyasını pdf çevirme - soulpandora - 31-10-2008

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 :D 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

RE: access ile Doc dosyasını pdf çevirme - Taruz - 31-10-2008

Merhaba..

True değerlerini False yaparak kullanın..

RE: access ile Doc dosyasını pdf çevirme - husem - 01-10-2019

Visual Basic
  1. Private Sub pdfyap_Click()
  2. Dim WordApp As Word.Application
  3. Dim AYol As String
  4. AYol = "D:\Çubuk.doc"
  5. Application.FollowHyperlink AYol, , False
  6. On Error Resume Next
  7. Set WordApp = GetObject(, "Word.Application")
  8. On Error GoTo ErrHandler
  9. WordApp.Documents.Open (AYol)
  10. WordApp.Visible = False
  11. WordApp.WindowState = wdWindowStateMaximize
  12. ActivePrinter = "PDFCreator"
  13. Word.Application.PrintOut FileName:=AYol
  14. Set WordApp = Nothing
  15. Exit Sub
  16. ErrHandler:
  17. Set WordApp = Nothing
  18. End Sub


merhabalar,
bu kodla world belgesini pdf'ye  çevirmeye çalışıyorum. Ekteki PdfCreator ekranını açıyor.
bu ekranı açmadan world dosyasının pdf'ye çevrilmiş halini direkt olarak D:\ dizinine çevirebilirmi acaba?

kolay gelsin

RE: access ile Doc dosyasını pdf çevirme - Taruz - 01-10-2019

(01-10-2019, 22:07)husem demiş ki: ......
............
merhabalar,
bu kodla world belgesini pdf'ye  çevirmeye çalışıyorum. Ekteki PdfCreator ekranını açıyor.
bu ekranı açmadan world dosyasının pdf'ye çevrilmiş halini direkt olarak D:\ dizinine çevirebilirmi acaba?

kolay gelsin

Selamlar..

Kaydetmek için SaveAs yöntemi daha kullanışlı olur..:

Visual Basic
  1. Dim WordApp As Word.Application
  2. Dim AYol As String
  3. AYol = "D:\Çubuk.doc"
  4. Application.FollowHyperlink AYol, , False
  5. On Error Resume Next
  6. Set WordApp = GetObject(, "Word.Application")
  7. On Error GoTo ErrHandler
  8. WordApp.Documents.Open (AYol)
  9. WordApp.Visible = False
  10. WordApp.WindowState = wdWindowStateMaximize
  11. 'ActivePrinter = "PDFCreator" bunu pasife çektim
  12.  
  13. WordApp.ActiveDocument.SaveAs FileName:= _
  14.          "D:\Çubuk.pdf", FileFormat:=17 'bunu ekledim
  15. Set WordApp = Nothing
  16. Exit Sub
  17. ErrHandler:
  18. Set WordApp = Nothing




RE: access ile Doc dosyasını pdf çevirme - husem - 01-10-2019

(01-10-2019, 22:40)Taruz demiş ki: Selamlar..

Kaydetmek için SaveAs yöntemi daha kullanışlı olur..:
sn taruz, merhaba,
SaveAs'ı kodda nasıl kullanacağız

RE: access ile Doc dosyasını pdf çevirme - Taruz - 01-10-2019

Kodu mesajıma eklemiştim zaten.. Test edebilirsiniz..


Visual Basic
  1. 'ActivePrinter = "PDFCreator" bunu pasife çektim
  2.  
  3. WordApp.ActiveDocument.SaveAs FileName:= _
  4.          "D:\Çubuk.pdf", FileFormat:=17 'bunu ekledim