74:
Can I preview the pages with no margins ( compact )

Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPreviewSettings OLEexPreviewShowCompact to True
	Set ComPreviewSettings OLEexPreviewShowPageNumbers to True
	Set ComPreviewSettings OLEexPreviewPageNumberFormat to "<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>"
	Send ComPreview
End_Procedure
73:
I have noticed that I can zoom the pages in the Print and Print-Preview, using the middle mouse buttons. How can I disable this
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPreviewSettings OLEexPreviewAllowMiddleZoom to False
	Send ComPreview
End_Procedure
72:
Is it possible to display the page number with the same size on the Preview workspace

Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPreviewSettings OLEexPreviewShowPageNumbers to True
	Set ComPreviewSettings OLEexPreviewPageNumberFormat to "<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>"
	Send ComPreview
End_Procedure
71:
How can I prevent zooming the page whe user clicks it
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPreviewSettings OLEexPreviewAllowToggleZoom to False
	Send ComPreview
End_Procedure
70:
How can I select/unselect the pages to be printed when user right clicks the page in the preview
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPreviewSettings OLEexPreviewAllowUnprintPage to False
	Send ComPreview
End_Procedure
69:
How can I prevent scrolling the pages by drag and drop
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPreviewSettings OLEexPreviewAllowDragScroll to False
	Send ComPreview
End_Procedure
68:
How can I prevent scrolling the pages using the mouse wheel
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPreviewSettings OLEexPreviewAllowWheelScroll to False
	Send ComPreview
End_Procedure
67:
How can I change the preview's background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPreviewSettings OLEexPreviewBackColor to 16777215
	Send ComPreview
End_Procedure
66:
How do I change the message "The number of pages being loaded is: 100. Do you want to continue

Procedure OnCreate
	Forward Send OnCreate
	Set ComUILimitPagesCountMessage to "The number of pages being loaded is: <%count%>. Do you want to continue?"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
65:
I'm asked every time after 100 pages loaded, to continue. Is there any way to change/prevent that (sample 2)
Procedure OnCreate
	Forward Send OnCreate
	Set ComUILimitPagesCountMessage to ""
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
64:
I'm asked every time after 100 pages loaded, to continue. Is there any way to change/prevent that (sample 1)
Procedure OnCreate
	Forward Send OnCreate
	Set ComUILimitPagesCount to -1
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
63:
Is it possible to export/copy the pages to a file (*.emf or any other extension determines the control to save the pages in EMF format)
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Get ComCopyTo "C:\Temp\Page%i.emf" to Nothing
End_Procedure
62:
Is it possible to export/copy the pages to a file (*.pdf, exports the pages to PDF format. The %i flag has no effect if using PDF format, as all pages are saved to a single document)
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Get ComCopyTo "C:\Temp\Page.pdf" to Nothing
End_Procedure
61:
Is it possible to export/copy the pages to a file (*.png, exports the pages to PNG format)
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Get ComCopyTo "C:\Temp\Page%i.png" to Nothing
End_Procedure
60:
Is it possible to export/copy the pages to a file (*.tif *.tiff, exports the pages to TIFF format)
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Get ComCopyTo "C:\Temp\Page%i.tiff" to Nothing
End_Procedure
59:
Is it possible to export/copy the pages to a file (*.gif, , exports the pages to GIF format)
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Get ComCopyTo "C:\Temp\Page%i.gif" to Nothing
End_Procedure
58:
Is it possible to export/copy the pages to a file (*.jpg *.jpe *.jpeg *.jfif, exports the pages to JPEG format)
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Get ComCopyTo "C:\Temp\Page%i.jpg" to Nothing
End_Procedure
57:
Is it possible to export/copy the pages to a file (*.bmp *.dib *.rle, exports the pages to BMP format)
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Get ComCopyTo "C:\Temp\Page%i.bmp" to Nothing
End_Procedure
56:
The Preview is automatically closed after I create the object. Is it possible to close it, when user closes the Preview
Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoRelease to False
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
55:
How do I change the paper's frame

Procedure OnCreate
	Forward Send OnCreate
	Set ComPageFrameStyle to OLEexPageFrameSolid
	Set ComPageFrameColor to (RGB(255,0,0))
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
54:
How cam I prevent resizing the paper's margins

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowMargins to False
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
53:
Is it possible to place the Print and Print Preview window at the bottom of the Z order
Procedure OnCreate
	Forward Send OnCreate
	Set ComForeground to 1
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
52:
Is it possible to place the Print and Print Preview window at the top (sample 2)
Procedure OnCreate
	Forward Send OnCreate
	Set ComForeground to -2
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
51:
Is it possible to place the Print and Print Preview window at the top of the Z-order (sample 1)
Procedure OnCreate
	Forward Send OnCreate
	Set ComForeground to -1
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
50:
I am using the eXPrint to print my object, but when I print the document a watermark logo is displayed. Is there any way to prevent that
Procedure OnCreate
	Forward Send OnCreate
	Set ComRuntimeKey to "XXX"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
49:
I've noticed that the page starts at 1. Can I change that

Procedure OnCreate
	Forward Send OnCreate
	Set ComStartPageNumber to 10
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
48:
Is it possible to display the page count right after the page number

Procedure OnCreate
	Forward Send OnCreate
	Set ComPageNumberFormat to "<%page%>/<%count%>"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
47:
How do I encode/decode plain text

Procedure OnCreate
	Forward Send OnCreate
	Variant sEncode
	Get ComEncode64Text "AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDD" to sEncode
	Showln "Encoded:" sEncode
	Variant sDecode
	Get ComDecode64Text sEncode to sDecode
	Showln "Decoded:" sDecode
End_Procedure
46:
How do I programmatically encode an icon file to BASE64 string (Images)

Procedure OnCreate
	Forward Send OnCreate
	Variant sEncodeIcon
	Get ComEncode64Icons "c:\exontrol\images\setup.ico" to sEncodeIcon
	Send ComImages sEncodeIcon
	Set ComCaption to "This is an icon <img>7</img> loaded from BASE64 encoded string"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
45:
How do I programmatically encode a picture file to BASE64 string (HTMLPicture)

Procedure OnCreate
	Forward Send OnCreate
	Variant sEncodePicture
	Get ComEncode64 "c:\exontrol\images\zipdisk.gif" to sEncodePicture
	Set ComHTMLPicture "pic1" to sEncodePicture
	Set ComCaption to "This is a picture <img>pic1:96</img> loaded from BASE64 encoded string"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
44:
How do I find the number of pages
// Occurs when the user clicks a button in the toolbar.
Procedure OnComClick Integer   llID Integer   llSelectedID
	Forward Send OnComClick llID llSelectedID
	Showln "Pages:" (ComPagesCount(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarFormat to "1001"
	Set ComItemCaption (|CI$380 + OLEexToolBarClose) to "Pages"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
43:
How do I specify the range of pages to be printed

Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComPageRange to "1,4"
	Send ComPreview
End_Procedure
42:
My control uses transparency, and so the print and print-preview does not show as on the screen. What can I do
Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Set ComAsScreen to True
	Send ComPreview
End_Procedure
41:
How do I get a list of available printers

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComPrinters(Self))
End_Procedure
40:
Is it possible to assign an extra title or caption to the document

Procedure OnCreate
	Forward Send OnCreate
	Send ComExtraCaption "Left" "Left-Title" 0 0
	Send ComExtraCaption "Right" "Right-Title" 0 2
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
39:
Can I change/customize the toolbar

// Occurs when the user clicks a button in the toolbar.
Procedure OnComClick Integer   llID Integer   llSelectedID
	Forward Send OnComClick llID llSelectedID
	Showln "Click" llID llSelectedID
End_Procedure

// Notifies your application when the pages are refreshed.
Procedure OnComRefresh 
	Forward Send OnComRefresh 
	Set ComItemCaption (|CI$ffffff30 + OLEexPage) to "Printer: <fgcolor=808080>Xerox</fgcolor>"
	Set ComItemToolTip (|CI$ffffff30 + OLEexPage) to "Xerox"
	Set ComItemCaption (|CI$c0 + OLEexPrinting) to "<img>7</img> Orientation: Landscape #1"
	Set ComItemToolTip (|CI$c0 + OLEexPrinting) to "Page Orientation"
	Set ComItemCaption (|CI$c0 + OLEexCancel) to "<img>8</img> Size: Letter\r\nLetter #1\r\nA4#9\r\nA5#11\r\nA6#70"
	Set ComItemToolTip (|CI$c0 + OLEexCancel) to "Paper Size"
	Set ComItemCaption (|CI$c0 + OLEexPrintPreview) to "<img>9</img> <fgcolor 0000FF>Scale <sha ;;0>1 x 1"
	Set ComItemToolTip (|CI$c0 + OLEexPrintPreview) to "Adjust To and Fit-To"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages ("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BGWBQwuwiNFmHRoqxSNE+NRolyCNEeTRohyyND2ZRocziNDOfRoX0SNCmlRoS1CNCGrRoO1yGoYzjWyv9nGz83D/3D83W53e93m/3774j/4j743F47/fXN5nO38ajsoEez60Z2gA7IzXKDIb/7vf6/a8fbjXVjSz9T/rnqWfss2333z4P04H34W55r65/8fL/n+/58vu6SNj2PY8mAV5YFaf5XFcVh/leWJYn+WBaFsf5bj8HJ/nAWI4w9EENQ5C0MQlCkHQhCRXwbA8Eo29z4K1GTbPy+scPw+0buS5D9wDAB8SFAiMumABYFgV6KSWihZjqFR/nIXxFH+c5aDRKsryjKZ/ydKEmSZJBXRmAEapeHk0H+GM1n+FE3H+D84n+0QLn+B87n+BM9H+Ac+zIlkzLK+Ucx5Qsdv050BH+e1GUXRroyKjZXlmWswH7JZoFWP0LDsGB/m0Ugq0/UNOU8Z9NTBJkJwrGL1vbVz40NQlDxy5dFUYex/nnXZ/nlX0iI4jZYFuXkujuFp/l+R4p1TJZYjuF5/2faNmogZxVD7LsnwsXBgTIWtwT+lYlXIf4gXOf4b3Uf4W3af4SXgf4N3mf4J3sf4GXzcSVXBSsbVpHVZt45chHwf564RXtfnfhh/nbh9gOmGZbj+HkPFdLFnhjJbeIfjp/mYVA85BkTdIhj6KFhTp/m+VozxJDrZlvmcyF8PwlGopmbZwjeZlvfawUHHuA6Jgkh4QeuFHkf52aaf51agf5zaniJcO8f5wlyQOnlsNWuZeWI7BdkBTZGfD+H+e580vtVL7Oh5mbLaWxaeWuXnVrusFxrerCCf5fFeUx/l0PolGsX5BinnKNCxxp/idyB/iLyZ/h3yx/sCGU2zeEHOn+DHQTJxHFcJw3AcFf7eUU3579bIEB0VgtHVzXZ56Zp1ZaqQYhakY5NH+bxUi1hxnE6f5ZboZRSDtXR7YMeNf+hpZ5+cf/leZ5GxnaZpOeB4Xekyf5cEFvxtlGOh/nSXBH6YXJIn+cZSjloCefj+Z2fd9P10+Uo7/oV5oTsnWj3bS65RUA4CwEHpAsf48IHNPaib9XA/4Fj0H+FWDAkSRM9RKOoaKYxZLQV0ciBo9GDDvegP8d48oLQrhbCkeEJoRkPey08aCDRbh9BsmQYItBVLJESFwaowRHBmcWRkMkSR/hciYP8KcTx/rkCUP8IMVV0rrMI2MyAJYeRFGoL+IMQ4fP/K6DZAQ/WkNKH+PGNjs2DsJjTGweMKmGjpjsfdqY5h/hUj5BojJJwAACWELYXY/xaB3BYP8XoiwnsOHirlpo72HDvgsMgUYdR/yWkwO2Sjt5JDthjJmS8hg6gpWkLgXyZBeSrTIMUSQbYjlJldLAjcq1ilnBnHYdI8Izu5l8fZ2UfAqR+JSRmQRK1JqVIoOUcg4X0jqHY08dg8GmDzN4LIPDG5sMbHZNaaU1B0DpHXM8dqS1VyqlYTAN86x/honcP8ME8R/uNCwP8J893JOUTQxYGc/YyAAltP8rYHDxnToMgVSNCVg0KoPH8jUxyXCuRakscI4hxPwHOOof4xRRPohCp4dguGvUha9R+jYoX0DjHOOlrFFkl0SQaRsXdM6BFPpnIUuZJSM06ABTynxJKgU7qCTYV9E1qkPFoHZKA6RmuCGyKMKg/6n1RqY4KpKX6j1FpiRqgJMA7VfH+HGsQ/w11lH/EkMkS4mxPWYEutw/whVxn/V02pS0Dh6SQgxFSDZzixlQhqHTUhnINHNYOwEO6/SpnOg9BqSEXB7rxLWdJW66V1LC+MH74hBWZssWIiwPiV2gI8SCDdQqeVDJuRCzpSB/B/IeRsQAAQ/j+thbK2hGrYh" + ;
"wAdbW2dtbdEqC+PolQEAEEqAePC2txLa3BJJbm3ZGQB2xt6AAcAD7nEZIfdK25D7W2vAAQEA=")
	Set ComToolBarFormat to "-1,100,-1,101,102,106,-1,(200/201,-1,202),|,(-1,(-201/(103,-1,104,-1,105))):216"
	Set ComOptions to "FitToPage = 1x1"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
38:
Can I add or display icons or images in the document's title

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComCaption to "<img>7</img> This is the new <img>pic1</img> document's title"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
37:
How can I change the icons on the captions / tooltips being shown on the toolbar of the Print and Print-Preview

Procedure OnCreate
	Forward Send OnCreate
	Get ComReplaceIcon 0 -1 to Nothing
	Send ComImages "gBJJgBAIGAAHAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbqkQib/rlfsVhslllVelloqdqs8Ps1vuFtsFdt1putxvF0ucrtlRr1/u95wVrt2AvdWvuDxVVxNbxsZx+LyVCw1iyNQyuTzWbzmdz2f0Gh0Wj0ml02n1Gp1Wr1mt12v2Gx2Wz2m1neXwlgyu4p2Zsu8v2BrPAvUt4lP4+94Vc5PD5dL3eF6WHxnPsnNzHWpuR7HQ7Vm7vK6nZ6nhou+rXc7/e8ca81E9HO9vp6dh+PM9e2/X7/n9/z/sWiwfJXAaPJAkSSAAkqUQWnC/nAf5wI2f54QpCZ8H+fCNngOkOI2YAHRAjZAAfEkRxKB6UIQhCNxXFSDxfFiNRcjUSRNGsUQ+D5gA/DY/ngP8JwhIcIwpI0KwrDElQzDkmw6OkQSjEIHRtFEqyvFMXS1GEty7Lkvy1LExRRHkyx2D8gTTH4/oCA="
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
36:
Is it possible to change/customize the captions / tooltips being shown on the toolbar of the Print and Print-Preview

Procedure OnCreate
	Forward Send OnCreate
	Set ComItemCaption OLEexClose to "<img>6</img> <fgcolor FF0000><b>Inchide"
	Set ComItemToolTip OLEexClose to "Inchide preview"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
35:
Is it possible somehow to get/set all settings of the printer

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComSettings(Self,OLEexAllFields))
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
34:
How do I get the current's page size as described in the Paper Size field

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComSettings(Self,OLEexFormName))
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
33:
How can I get the size of the page, in pixels

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexPaperSize to 9
	Showln "Width (pixels): " (ComClientWidth(Self))
	Showln "Height (pixels): " (ComClientHeight(Self))
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
32:
How can I get the size of the page, in dots

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexPaperSize to 9
	Showln "Width (dots): " (ComSettings(Self,OLEexPaperWidth))
	Showln "Height (dots): " (ComSettings(Self,OLEexPaperHeight))
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
31:
How can I display inches instead of millimeters

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexDisplayInch to 0
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
30:
How can I display millimeters instead of inches

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexDisplayInch to 1
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
29:
How can I change the paper's bottom margin

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexBottomMargin to 0
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
28:
How can I change the paper's right margin

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexRightMargin to 0
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
27:
How can I change the paper's top margin

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexTopMargin to 0
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
26:
How can I change the paper's left margin

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexLeftMargin to 0
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
25:
How do I specify the print quality
Procedure OnCreate
	Forward Send OnCreate
	Showln (ComSettings(Self,OLEexPrintQuality))
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
24:
How do I specify the number of copies
Procedure OnCreate
	Forward Send OnCreate
	Showln (ComSettings(Self,OLEexPrinterCopies))
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
23:
How do I get the current printer's name

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComSettings(Self,OLEexPrinterName))
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
22:
How do I change the page's orientation to portrait (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexPageOrientation to 1
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
21:
How do I change the page's orientation to landscape (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexPageOrientation to 2
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
20:
How do I change the paper's source
Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexPaperSource to 7
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
19:
How can I change the paper's size to A4

Procedure OnCreate
	Forward Send OnCreate
	Set ComSettings OLEexPaperSize to 9
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
18:
How do I change the page's orientation to portrait (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPageOrientation to OLEexPortrait
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
17:
How do I change the page's orientation to landscape (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPageOrientation to OLEexLandscape
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
16:
Is there any Fit-To option for print and print preview

Procedure OnCreate
	Forward Send OnCreate
	Set ComOptions to "FitToPage = 2 x 2"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
15:
Is there any Fit-To-Page / Fit-To Tall option for print and print preview

Procedure OnCreate
	Forward Send OnCreate
	Set ComOptions to "FitToPage = x 2"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
14:
Is there any Fit-To-Page / Fit-To Wide option for print and print preview

Procedure OnCreate
	Forward Send OnCreate
	Set ComOptions to "FitToPage = 2 x"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
13:
Is there any Fit-To-Page / Adjust-To option for print and print preview

Procedure OnCreate
	Forward Send OnCreate
	Set ComOptions to "FitToPage = 25%"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
12:
Is there any Fit-To-Page option for print and print preview

Procedure OnCreate
	Forward Send OnCreate
	Set ComOptions to "FitToPage = On"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
11:
How can I display the document's title to a different place

Procedure OnCreate
	Forward Send OnCreate
	Set ComCaptionAlignment to OLEexLeft
	Set ComCaptionPosition to OLEexFooter
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
10:
How can I display the page numbers to a different place

Procedure OnCreate
	Forward Send OnCreate
	Set ComPageNumbersPosition to OLEexHeader
	Set ComPageNumbersAlignment to OLEexRight
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
9:
How do I hide the page numbers

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowPageNumbers to False
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
8:
Is it possible to display the page's index and count in the document's title

Procedure OnCreate
	Forward Send OnCreate
	Set ComCaption to "<font ;16>This is the page number <%page%> from <%count%> pages."
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
7:
How do I change the document's title

Procedure OnCreate
	Forward Send OnCreate
	Set ComCaption to "<font ;16>This is your new <b>title</b>."
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
6:
How do I programmatically print the control, not using the Print-Preview mainframe

Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Send ComDoPrint True
End_Procedure
5:
How can I print and print-preview the control (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExts to (pvComObject(Self))
	Send ComPreview
End_Procedure
4:
How do I get the version of the eXPrint control
Procedure OnCreate
	Forward Send OnCreate
	Showln (ComVersion(Self))
End_Procedure
3:
How do I change the font to display the page's caption (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComCaption to "<font ;24>Untitled Document"
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
2:
How do I change the font to display the page's caption (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 24
	Send Destroy to hoStdFont
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure
1:
How can I print and print-preview the control (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPrintExt to (pvComObject(Self))
	Send ComPreview
End_Procedure