access ile Doc dosyasını pdf çevirme
#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 :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



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba..

True değerlerini False yaparak kullanın..



  Alıntı
Bu mesajı beğenenler:
#3
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


Eklenti Dosyaları
.rar   Ekran Alıntısı.rar (Boyut: 45,57 KB / İndirilme: 63)



  Alıntı
Bu mesajı beğenenler:
#4
(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





  Alıntı
Bu mesajı beğenenler:
#5
(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



  Alıntı
Bu mesajı beğenenler:
#6
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





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sayıyı Sese çevirme adnnfrm 19 1.409 23-07-2023, 18:32
Son Mesaj: onur_can
  Sorguda String Değeri Date Değerine çevirme. orderyazbim 4 217 22-04-2022, 12:32
Son Mesaj: halily
  [VBA] Bat Dosyasını Gizli Modda çalıştırma hedefkaya 3 160 17-04-2022, 13:41
Son Mesaj: hedefkaya
  Metin Kutusundaki Kısaltmaları Otomatik çevirme Veya Tamamlanması atkbursa 3 226 01-12-2021, 16:22
Son Mesaj: atkbursa
  [TABLO] Büyük Harfe çevirme Mert1985 20 1.073 30-05-2021, 21:24
Son Mesaj: ekremer1969
  [VBA] METİN DOSYASINI OTOMATİK OLARAK KAYDETMEK Onurcan_Yrtsvr06 28 4.322 13-03-2021, 18:56
Son Mesaj: lemoncher2
access-sql-18 [TABLO] şifreli Excel Dosyasını Bağlı Tablo Olarak Ekleyemiyorum. vitusa 2 298 29-01-2021, 13:06
Son Mesaj: vitusa
  [FORM] Büyük Harfe çevirme golf2000 5 570 30-05-2020, 20:28
Son Mesaj: golf2000

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi