Skip to main content

AccessTr.neT


Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme

Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme

Çözüldü #1
merhaba kolay gelsin.
Doc Ve Docx  Uzantılı Dosyayı accessde buton ile Pdf Formatına nasıl dönüştürebilirim acaba.
aşağıdaki kod ile yapmaya çalıştığımda pdfCreator ekranını açıyor. bu ekranı açmadan dönüştürmesini istiyorum.

Visual Basic Code
Private Sub pdfyap_Click()
Dim WordApp As Word.Application
Dim AYol As String
AYol = "D:\Çubuk.doc"
Application.FollowHyperlink AYol, , False
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo ErrHandler
WordApp.Documents.Open (AYol)
WordApp.Visible = False
WordApp.WindowState = wdWindowStateMaximize
ActivePrinter = "PDFCreator"
Word.Application.PrintOut FileName:=AYol
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
End Sub


[Resim: do.php?img=9204]
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
Aşağıdaki kodu dener misiniz?


Visual Basic Code
Sub SaveAsPDF()

    Dim strFileName As String
    Dim WordApp As Word.Application

    strpath = "F:\PDF Files\"
    strFileName = "test.docx"


    Set WordApp = CreateObject("Word.Application")
    WordApp.Documents.Open strpath & strFileName
            
'   remove .doc or .docx from filename
    If UCase(Right(ActiveDocument.name, 1)) = "X" Then
'       .docx
        strFileName = Left(ActiveDocument.name, Len(ActiveDocument.name) - 5)
    Else
'       .doc
        strFileName = Left(ActiveDocument.name, Len(ActiveDocument.name) - 4)
    End If

'   write the PDF file
    WordApp.ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=ActiveDocument.Path & "\" & strFileName & ".pdf", _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, _
            IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, _
            DocStructureTags:=True, _
            BitmapMissingFonts:=True, _
            UseISO19005_1:=False

    WordApp.Quit
    Set WordApp = Nothing

'   all done
    MsgBox "PDF complete"

End Sub
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
Merhaba, önceki mesajımda belirttiğim kodun örneğe uygulanmış hali ektedir.
.rar pdf_donustur.rar (Dosya Boyutu: 32 KB | İndirme Sayısı: 4)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
ilk denememizde bu kod ile pdf formatına dönüştürüyor. fakat başka bir dosyayı da pdf formatına dönüştürmek istendiğinde yapmıyor.
dönüştürülmek istenen doc uzantılı dosyayı açıp kapatmak gerekiyor. çünkü doc uzantılı dosyanın adı da değiştirilemiyor. dosyanın açık  olduğunu söylüyor.
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Son Düzenleme: 02/10/2019, 00:34, Düzenleyen: husem.
Cevapla
#5
Merhaba, ekli örneği inceleyiniz.
.rar pdf_donustur_2.rar (Dosya Boyutu: 60,83 KB | İndirme Sayısı: 7)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#6
sn ozanakkaya, çok teşekkür ederim. denedim çalışıyor. yardımın için çok sagol.
iyi çalışmalar
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da