Hoi ,
ik heb een vraag hoe kan ik mijn rapporten opslaan als tiff file ?
ik gebruik nu deze code
ik heb een vraag hoe kan ik mijn rapporten opslaan als tiff file ?
ik gebruik nu deze code
Code:
Private Sub Command115_Click()
Dim folder As String
Dim strDocName As String
Dim strWhere As String
On Error GoTo Opslaan_cmdReportOpslaan
folder = "I:\MAP\"
MkDir folder
Resume Opslaan_cmdReportOpslaan
Opslaan_cmdReportOpslaan:
strDocName = "Rpt_TESTt"
strWhere = "[equipment_number]='" & Me!equipment_number & "'"
DoCmd.OpenReport strDocName, acPreview, "", strWhere, acHidden
DoCmd.OutputTo acOutputReport, strDocName, acFormatPDF, folder & Me!equipment_number & ".pdf"
Laatst bewerkt: