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