Hi,
How do i rewrite the following code to generate the pdf as a higher res document. I know how to do it manually; you save as pdg but then select "Optimize for Standard (publishing online and printing) as oppose to the default Minimize size?
So in short; how do i stipulate in the code to select the standard as opposed to the default Minimize size?
Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEMail_Click
Dim stDocName As String
stDocName = "rptConfirmationVoucherIndividualForBooking"
DoCmd.SendObject acReport, stDocName, acFormatPDF, txtBookedBy, "", "", "Confirmation Voucher: EXP" & autBookingID, "Dear xxxxxxxxxxxxxxx"
Exit_cmdEMail_Click:
Exit Sub
Err_cmdEMail_Click:
MsgBox Err.Description
Resume Exit_cmdEMail_Click
End Sub
How do i rewrite the following code to generate the pdf as a higher res document. I know how to do it manually; you save as pdg but then select "Optimize for Standard (publishing online and printing) as oppose to the default Minimize size?
So in short; how do i stipulate in the code to select the standard as opposed to the default Minimize size?
Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEMail_Click
Dim stDocName As String
stDocName = "rptConfirmationVoucherIndividualForBooking"
DoCmd.SendObject acReport, stDocName, acFormatPDF, txtBookedBy, "", "", "Confirmation Voucher: EXP" & autBookingID, "Dear xxxxxxxxxxxxxxx"
Exit_cmdEMail_Click:
Exit Sub
Err_cmdEMail_Click:
MsgBox Err.Description
Resume Exit_cmdEMail_Click
End Sub
