AccessTr.neT
Pdf Oluştururken Outputto Hatası - 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ığı: Pdf Oluştururken Outputto Hatası (/konu-pdf-olustururken-outputto-hatasi.html)

Pdf Oluştururken Outputto Hatası - husem - 04/08/2022

merhaba arkadaşlar,
access de pdf oluştururken outputto hatası veriyor, farklı olarak nasıl bir yöntem kullanmalıyım acaba?



DoCmd.OutputTo acOutputReport, "DOKUMAYA_IPLIK_GONDER", acFormatPDF, "C:\Users\" & Environ("username") & "\Desktop" & "\Dokumaya İplik Sevki.pdf", False

DoCmd.OutputTo acOutputReport, "DOKUMAYA_IPLIK_GONDER", "PDFFormat(*.pdf)", "C:\Users\" & Environ("username") & "\Desktop" & "\Dokumaya İplik Sevki.pdf", False


RE: Pdf Oluştururken Outputto Hatası - ozanakkaya - 05/08/2022

Merhaba, eklediğiniz kodda hata yok, ancak daha önceden oluşturulmuş Dokumaya İplik Sevki.pdf isimli dosya var ise kodu tekrar çalıştırdığınızda hata verecektir.

modüle aşağıdaki kodları ekle

Public Function FileExists(ByVal path_ As String) As Boolean

    FileExists = (Len(Dir(path_)) > 0)

End Function

butonda pdf oluşturma kodunu aşağıdaki ile değiştir.

Dim GDosyaDizin As String



GDosyaDizin = "C:\Users\" & Environ("username") & "\Desktop" & "\Dokumaya İplik Sevki.pdf"



    If FileExists(GDosyaDizin) = True Then

    

    Kill GDosyaDizin

    

    End If



DoCmd.OutputTo acOutputReport, "DOKUMAYA_IPLIK_GONDER", acFormatPDF, GDosyaDizin, False

Dosya daha önceden oluşturulmuş ise siler, tekrar oluşturur.

RE: Pdf Oluştururken Outputto Hatası - husem - 05/08/2022

evet, masa üstünde oluşturulmuş pdf dosya var.

oluşturulan dosyayı mail ile gönderim yapıyorum,
mail ile gönderim yapınca mail sonrası dosyayı sildirirsem aynı kod ile de devam edebilirim o zaman,

yarın işyeri bilgisayarında deneyip, olumlu olumsuz dönüş yaparım,
çok teşekkür ederim,
iyi çalışmalar

RE: Pdf Oluştururken Outputto Hatası - ozanakkaya - 05/08/2022

mail gönderimini tamamladıktan sonra

Kill "C:\Users\" & Environ("username") & "\Desktop" & "\Dokumaya İplik Sevki.pdf"

kodu kullanabilirsiniz