Word Belgesini Form Üzerinden Pdf'ye Dönüştürme

14/03/2023, 23:25

alikagan

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

[img]
[/img]
13/07/2023, 12:48

atoykan

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.
13/07/2023, 21:25

alikagan

sn atoykan merhaba
kodu ekledim,
pdf yap butonunun tıklanma olayına da 
CreatePDF 
olarak ekledim,
fakat hata verdi,
referanslardan microsoft word referansı ekli
14/07/2023, 10:35

atoykan

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.