AccessTr.neT
Raporu Pdf Olarak Mail Atarken Bozuluyor - 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ığı: Raporu Pdf Olarak Mail Atarken Bozuluyor (/konu-raporu-pdf-olarak-mail-atarken-bozuluyor.html)

Raporu Pdf Olarak Mail Atarken Bozuluyor - U.ALTUN - 07/01/2020

arkadaşlar acil yardıma ihtiyacım var Access formumdan  siparişlerimi rapor ön izlemede sorunsuz fakat Outlook üzerinden pdf olarak gönderdiğimde aşağıdaki ekte olduğu gibi yazılar iç içe girmiş oluyor bir sefer Office tekrar yükleme yapınca düzelmişti tekrara bozuldu ve artık düzelmiyor sorun nerede yardımlarınızı bekliyorum.

Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - accessman - 07/01/2020

şunu inceleyebilir misiniz

Raporu Pdf Formatında Ekli Mail Olarak Gönderme

Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - U.ALTUN - 07/01/2020 

On Error GoTo Err_cmdemail_Click

    Dim stDocName As String

    Dim stFormat As String

    Dim stFrom As String

    Dim stTo As String

    Dim stCc As String

    Dim stBcc As String

    Dim stSubject As String

    Dim stMesajText As String

    Dim EditMesage As Variant



stFormat = "PDF Format(*.pdf)"

stDocName = "Rpr_Perdesiparisfisi"

DoCmd.OpenReport stDocName, acViewPreview, , "[Sipno]=Forms![Frm_Perdesipariskarti]![Sipno]"



 

 If MsgBox("Sipari?iniz Haz?rland? Devam Etmek i?in Evet ?ptali ??in Hay?r? T?klay?n", vbYesNo, "Pars") = vbYes Then

    

    stFormat = "PDF Format(*.pdf)"    'Formun g?nderilece?i format zengin metin snapshot,excel vs

    stTo = Me.Mail1 'G?nderece?iniz e-mail adresi"

    stCc = Me.sipak

    stBcc = "ateslermefrusat@gmail.com"

    stSubject = "" 'e-mail ba?l???"

    stMesajText = "L?TFEN S?PAR??? ONAYLAYIN..."

    EditMesage = -1





DoCmd.OpenReport stDocName, acViewPreview, , "[Sipno]=Forms![Frm_Perdesipariskarti]![Sipno]"

DoCmd.SendObject acReport, "Rpr_Perdesiparisfisi", stFormat, stTo, stBcc, stSubject, stCc, stMesajText, EditMesage, """"

DoCmd.Close acForm, "Frm_Perdesipariskarti"

DoCmd.Close acReport, "Rpr_Perdesiparisfisi"

 Forms![Frm_Musterikarti]![sipliste].Requery



End If



Exit_cmdemail_Click:

    

    Exit Sub



Err_cmdemail_Click:

     MsgBox Err.Description

     DoCmd.Close acReport, "Rpr_Perdesiparisfisi"

     DoCmd.Close acForm, "Frm_Perdesipariskarti"

          DoCmd.OpenForm "Frm_Siparismenu"

     Resume Exit_cmdemail_Click

    



     Forms![Frm_Musterikarti]![sipliste].Requery


Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - ozanakkaya - 09/01/2020 

DoCmd.OutputTo acOutputReport, "Rpr_Perdesiparisfisi",  acFormatPDF, currentproject.path &"\Rapor.pdf"

kodunu kullandığınızda oluşturulan pdf dosyasında sorun oluyor mu?

Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - ozanakkaya - 13/01/2020

(09/01/2020, 18:07)ozanakkaya yazdı: 
DoCmd.OutputTo acOutputReport, "Rpr_Perdesiparisfisi",  acFormatPDF, currentproject.path &"\Rapor.pdf"

kodunu kullandığınızda oluşturulan pdf dosyasında sorun oluyor mu?


Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - U.ALTUN - 18/01/2020

(13/01/2020, 14:45)ozanakkaya yazdı:
(09/01/2020, 18:07)ozanakkaya yazdı: 
DoCmd.OutputTo acOutputReport, "Rpr_Perdesiparisfisi",  acFormatPDF, currentproject.path &"\Rapor.pdf"

kodunu kullandığınızda oluşturulan pdf dosyasında sorun oluyor mu?
 çok teşekkürler sorun çözüldü.