1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| PUBLIC SUB ImprimEcran_Click()
DIM hReport AS NEW Report 'déclaration des objets nécessaires DIM hRepImg AS NEW ReportImage(hReport)
hreport.Orientation = Printer.Landscape 'orientation de la feuille de papier hreport.Padding = ReportPadding["2 cm"] hReport.Spacing = "1 cm" hRepImg.Expand = TRUE hRepImg.Image = Desktop.Screenshot(ME.ScreenX, ME.ScreenY, ME.ClientWidth, ME.ClientHeight + 20).Image ' l'image que nous voulons imprimer hRepImg.Stretch = Report.Proportional 'étirement de l'image hReport.Name = ("Impression d'écran" hReport.Preview 'prévisualisation
END
|