1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Object btnPrint is a Button
	Set Size to 14 50
	Set Location to 238 298
	Set Label to "drucken"
	// fires when the button is clicked
	Procedure OnClick
		Integer iSeiten
		Get SofortDruck of oVisualReport1 to iSeiten
		Send Info_Box ("Anzahl der Seiten: "+String(iSeiten))
	End_Procedure
End_Object
Object oVisualReport1 is a cVisualReport
	Set psReportName to "D:\temp\Order Entry\data\My First Report.vrw"
	Function SofortDruck Returns Integer
		Handle hPrntDlg hoPrintDialog hPrintDlg
		Integer iRetval
		Integer iSeiten PrinterDC
		String sReportId
		//Einen PrintDialog erzeugen
		Get Create (RefClass (cPrintDialog)) to hoPrintDialog
		//Diesem sagen, das er den Default Drucker zurück geben soll
		Set piFlags of hoPrintDialog to PD_RETURNDEFAULT
		//PrintDialog aufrufen (taucht nicht auf, da er direkt den
		//Standarddrucker zurück gibt)
		Get PrintDialog of hoPrintDialog to iRetval
		If (iRetval<>0) Begin
			//Handel vom PrintDialog holen
			Get phPrintDlg of hoPrintDialog to hPrintDlg
			//Report öffnen
			Get OpenReport of oVisualReport1 to sReportId
			//Report mit den Einstellungen des PrintDialogs drucken
			Send PrintReport of oVisualReport1 hPrintDlg
			//PrintDialog wieder zerstören. Ansonsten bleibt er im Speicher
			Send Destroy of hoPrintDialog
		End
		//Seitenzahl des Reports ermitteln
		Get ReportPageCount of oVisualReport1 to iSeiten
		Send CloseReport of oVisualReport1 sReportId
		Function_Return iSeiten
	End_Function
End_Object