AccessTr.neT
Word Belgesini Form Üzerinden Pdf'ye Dönüştürme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Word Belgesini Form Üzerinden Pdf'ye Dönüştürme (/konu-word-belgesini-form-uzerinden-pdf-ye-donusturme.html)



Word Belgesini Form Üzerinden Pdf'ye Dönüştürme - alikagan - 14/03/2023

iyi çalışmalar arkadaşlar,
form üzerinden word dosyasını pdf'ye nasıl dönüştürebilirim acaba,
yardımcı olabilirmisiniz?

[img][Resim: do.php?img=15271][/img]


RE: Word Belgesini Form Üzerinden Pdf'ye Dönüştürme - atoykan - 13/07/2023

Kod:
Private Sub CreatePDF(strSourceFile As String, strDestFile As String)
Dim objWord As Word.Application
Dim objWordDoc As Word.Document

On Error GoTo ErrorHandler

Set objWord = CreateObject(“Word.Application”)
objWord.Visible = True
Set objWordDoc = objWord.Documents.Open(strSourceFile)
If Not objWord Is Nothing Then
objWordDoc.ExportAsFixedFormat strDestFile, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument
End If

ExitProcedure:
objWordDoc.Close False
objWord.Quit
Set objWordDoc = Nothing
Set objWord = Nothing
Exit Sub

ErrorHandler:
MsgBox Err.Description, vbInformation, “!!!HATA!!!! PDF Oluşturulamadı!”

End Sub

kodunu deneyin.


RE: Word Belgesini Form Üzerinden Pdf'ye Dönüştürme - alikagan - 13/07/2023

sn atoykan merhaba
kodu ekledim,
pdf yap butonunun tıklanma olayına da 
CreatePDF 
olarak ekledim,
fakat hata verdi,
referanslardan microsoft word referansı ekli


RE: Word Belgesini Form Üzerinden Pdf'ye Dönüştürme - atoykan - 14/07/2023

Ekli dosyayı inceler misiniz?

Formunuza bir buton ekledim bu buton ile word dosyasını seçiyorsunuz ve ilgili textboxlara dosya yolu ve dosya adını yazıyor, pdf yap butonunu tıkladığınızda aynı dosya yoluna aynı isimle pdf olarak kaydediyor.