14/03/2023, 23:25
Word Belgesini Form Üzerinden Pdf'ye Dönüştürme
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 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
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.
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.