AccessTr.neT

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]

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.

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

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.

alikagan

atoykan

alikagan

atoykan