Rapport opslaan als Tiff file

[balzac]

Hoi ,

ik heb een vraag hoe kan ik mijn rapporten opslaan als tiff file ?
ik gebruik nu deze 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"

 

[OctaFish]

Zou je de code willen opmaken met de CODE knop; de quote is daar niet echt geschikt voor.

 

[OctaFish]

En als je dat gedaan hebt, kun je deze pagina's gaan lezen:
Microsoft Office Document Imaging 2003 Object Model
PrintOut Method