AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Raporu Pdf Olarak Mail Atarken Bozuluyor

07/01/2020, 12:04

U.ALTUN

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.
07/01/2020, 12:20

accessman

şunu inceleyebilir misiniz

Raporu Pdf Formatında Ekli Mail Olarak Gönderme
07/01/2020, 13:22

U.ALTUN

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
09/01/2020, 18:07

ozanakkaya

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

kodunu kullandığınızda oluşturulan pdf dosyasında sorun oluyor mu?
13/01/2020, 14:45

ozanakkaya

(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?
18/01/2020, 17:40

U.ALTUN

(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ü.