81
I would like to put a two-line text with the ItemCaption function, so I tried "<img>2</img>View <br> Single Page", but the result is that the <br> is ignored. Is it possible to have multiple-lines captions (different toolbar-height)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.ToolBarFormat = "-1,100,101,102,106,-1,103,-1,104,-1,105,1000[ww=1],(\"\"/\"\")"
oPrint.Template = "ItemCaption(1000) = `Line1<br>Line2<br>Line3`" // oPrint.ItemCaption(1000 '380 + exToolBarPrint) = "Line1<br>Line2<br>Line3"
oPrint.PrintExt = oPrint
oPrint.Preview()

80
I would like to put a two-line text with the ItemCaption function, so I tried "<img>2</img>View <br> Single Page", but the result is that the <br> is ignored. Is it possible to have multiple-lines captions (same toolbar-height)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.ToolBarFormat = "-1,100,101,102,106,-1,103,-1,104,-1,105,1000[ww=1]"
oPrint.Template = "ItemCaption(1000) = `<font ;7>Line1<br>Line2`" // oPrint.ItemCaption(1000 '380 + exToolBarPrint) = "<font ;7>Line1<br>Line2"
oPrint.PrintExt = oPrint
oPrint.Preview()

79
I use the ItemCaption property to customize the interface in Italian. All is ok, but I don't understand in the ItemCaptionEnum enum what I have to use to customize the 'Printer...' button in page setup (bottom left)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "ItemCaption(12) = `Stampante`" // oPrint.ItemCaption(12) = "Stampante"
oPrint.Preview()

78
What are the predefined keywords the Caption/ExtraCaption supports

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.CaptionAlignment = 0
oPrint.Caption = "`<b>object</b>:` + object + `<br><b>opages</b>:` + opages+ `<br><b>opage</b>:` + opage+ `<br><b>pages</b>:` + pages+ `<br><b>page</b>:` + page"
oPrint.Preview()

77
Is it possible to display different captions for different pages (sample 2)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.ExtraCaption("extra","`<font ;24>` + (page = pages ? `last` : ( ( page - 1 ) array(`first`,`second`,`third`,`forth`,`fifth`,`sixth`,`seventh`,`eighth`,`ninth`,`tenth`) ) )")
oPrint.Preview()

76
Is it possible to display different captions for different pages (sample 1)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Caption = "`<font ;24>` + (page mod 2 ? `odd` : `even`)"
oPrint.Preview()

75
Is it possible to maximize the Print and Print Preview mainframe
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.PreviewState = 2
oPrint.Preview()

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

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "PreviewSettings(3) = True" // oPrint.PreviewSettings(3) = .t.
oPrint.Template = "PreviewSettings(0) = True" // oPrint.PreviewSettings(0) = .t.
oPrint.Template = "PreviewSettings(1) = `<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>`" // oPrint.PreviewSettings(1) = "<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>"
oPrint.Preview()

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
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "PreviewSettings(9) = False" // oPrint.PreviewSettings(9) = .f.
oPrint.Preview()

72
Is it possible to display the page number with the same size on the Preview workspace

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "PreviewSettings(0) = True" // oPrint.PreviewSettings(0) = .t.
oPrint.Template = "PreviewSettings(1) = `<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>`" // oPrint.PreviewSettings(1) = "<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>"
oPrint.Preview()

71
How can I prevent zooming the page whe user clicks it
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "PreviewSettings(8) = False" // oPrint.PreviewSettings(8) = .f.
oPrint.Preview()

70
How can I select/unselect the pages to be printed when user right clicks the page in the preview
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "PreviewSettings(7) = False" // oPrint.PreviewSettings(7) = .f.
oPrint.Preview()

69
How can I prevent scrolling the pages by drag and drop
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "PreviewSettings(6) = False" // oPrint.PreviewSettings(6) = .f.
oPrint.Preview()

68
How can I prevent scrolling the pages using the mouse wheel
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "PreviewSettings(5) = False" // oPrint.PreviewSettings(5) = .f.
oPrint.Preview()

67
How can I change the preview's background color

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Template = "PreviewSettings(4) = 16777215" // oPrint.PreviewSettings(4) = 16777215
oPrint.Preview()

66
How do I change the message "The number of pages being loaded is: 100. Do you want to continue

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.UILimitPagesCountMessage = "The number of pages being loaded is: <%count%>. Do you want to continue?"
oPrint.PrintExt = oPrint
oPrint.Preview()

65
I'm asked every time after 100 pages loaded, to continue. Is there any way to change/prevent that (sample 2)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.UILimitPagesCountMessage = ""
oPrint.PrintExt = oPrint
oPrint.Preview()

64
I'm asked every time after 100 pages loaded, to continue. Is there any way to change/prevent that (sample 1)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.UILimitPagesCount = -1
oPrint.PrintExt = oPrint
oPrint.Preview()

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)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.CopyTo("C:\Temp\Page%i.emf")

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)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.CopyTo("C:\Temp\Page.pdf")

61
Is it possible to export/copy the pages to a file (*.png, exports the pages to PNG format)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.CopyTo("C:\Temp\Page%i.png")

60
Is it possible to export/copy the pages to a file (*.tif *.tiff, exports the pages to TIFF format)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.CopyTo("C:\Temp\Page%i.tiff")

59
Is it possible to export/copy the pages to a file (*.gif, , exports the pages to GIF format)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.CopyTo("C:\Temp\Page%i.gif")

58
Is it possible to export/copy the pages to a file (*.jpg *.jpe *.jpeg *.jfif, exports the pages to JPEG format)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.CopyTo("C:\Temp\Page%i.jpg")

57
Is it possible to export/copy the pages to a file (*.bmp *.dib *.rle, exports the pages to BMP format)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.CopyTo("C:\Temp\Page%i.bmp")

56
The Preview is automatically closed after I create the object. Is it possible to close it, when user closes the Preview
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.AutoRelease = .f.
oPrint.PrintExt = oPrint
oPrint.Preview()

55
How do I change the paper's frame

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PageFrameStyle = 1
oPrint.PageFrameColor = 255
oPrint.PrintExt = oPrint
oPrint.Preview()

54
How cam I prevent resizing the paper's margins

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.ShowMargins = .f.
oPrint.PrintExt = oPrint
oPrint.Preview()

53
Is it possible to place the Print and Print Preview window at the bottom of the Z order
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Foreground = 1
oPrint.PrintExt = oPrint
oPrint.Preview()

52
Is it possible to place the Print and Print Preview window at the top (sample 2)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Foreground = -2
oPrint.PrintExt = oPrint
oPrint.Preview()

51
Is it possible to place the Print and Print Preview window at the top of the Z-order (sample 1)
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Foreground = -1
oPrint.PrintExt = oPrint
oPrint.Preview()

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
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.RuntimeKey = "XXX"
oPrint.PrintExt = oPrint
oPrint.Preview()

49
I've noticed that the page starts at 1. Can I change that

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.StartPageNumber = 10
oPrint.PrintExt = oPrint
oPrint.Preview()

48
Is it possible to display the page count right after the page number

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PageNumberFormat = "<%page%>/<%count%>"
oPrint.PrintExt = oPrint
oPrint.Preview()

47
How do I encode/decode plain text

Dim oPrint as P
Dim sDecode as 
Dim sEncode as 

oPrint = topparent:CONTROL_ACTIVEX1.activex
sEncode = oPrint.Encode64Text("AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDD")
? "Encoded:" 
? sEncode 
sDecode = oPrint.Decode64Text(sEncode)
? "Decoded:" 
? sDecode 

46
How do I programmatically encode an icon file to BASE64 string (Images)

Dim oPrint as P
Dim sEncodeIcon as 

oPrint = topparent:CONTROL_ACTIVEX1.activex
sEncodeIcon = oPrint.Encode64Icons("c:\exontrol\images\setup.ico")
oPrint.Images(sEncodeIcon)
oPrint.Caption = "This is an icon <img>7</img> loaded from BASE64 encoded string"
oPrint.PrintExt = oPrint
oPrint.Preview()

45
How do I programmatically encode a picture file to BASE64 string (HTMLPicture)

Dim oPrint as P
Dim sEncodePicture as 

oPrint = topparent:CONTROL_ACTIVEX1.activex
sEncodePicture = oPrint.Encode64("c:\exontrol\images\zipdisk.gif")
oPrint.Template = "HTMLPicture(`pic1`) = sEncodePicture" // oPrint.HTMLPicture("pic1") = sEncodePicture
oPrint.Caption = "This is a picture <img>pic1:96</img> loaded from BASE64 encoded string"
oPrint.PrintExt = oPrint
oPrint.Preview()

44
How do I find the number of pages
' Occurs when the user clicks a button in the toolbar.
function Click as v (ID  as  N,SelectedID  as  N)
	oPrint = topparent:CONTROL_ACTIVEX1.activex
	? "Pages:" 
	? oPrint.PagesCount 
end function

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.ToolBarFormat = "1001"
oPrint.Template = "ItemCaption(1001) = `Pages`" // oPrint.ItemCaption(1001 '380 + exToolBarClose) = "Pages"
oPrint.PrintExt = oPrint
oPrint.Preview()

43
How do I specify the range of pages to be printed

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.PageRange = "1,4"
oPrint.Preview()

42
My control uses transparency, and so the print and print-preview does not show as on the screen. What can I do
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.AsScreen = .t.
oPrint.Preview()

41
How do I get a list of available printers

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
? oPrint.Printers 

40
Is it possible to assign an extra title or caption to the document

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.ExtraCaption("Left","Left-Title",0,0)
oPrint.ExtraCaption("Right","Right-Title",0,2)
oPrint.PrintExt = oPrint
oPrint.Preview()

39
Can I change/customize the toolbar

' Occurs when the user clicks a button in the toolbar.
function Click as v (ID  as  N,SelectedID  as  N)
	oPrint = topparent:CONTROL_ACTIVEX1.activex
	? "Click" 
	? ID 
	? SelectedID 
end function

' Notifies your application when the pages are refreshed.
function Refresh as v ()
	oPrint = topparent:CONTROL_ACTIVEX1.activex
	oPrint.Template = "ItemCaption(-201) = `Printer: <fgcolor=808080>Xerox</fgcolor>`" // oPrint.ItemCaption(-201 'ffffff30 + exPage) = "Printer: <fgcolor=808080>Xerox</fgcolor>"
	oPrint.Template = "ItemToolTip(-201) = `Xerox`" // oPrint.ItemToolTip(-201 'ffffff30 + exPage) = "Xerox"
	oPrint.Template = "ItemCaption(200) = `<img>7</img> Orientation: Landscape #1`" // oPrint.ItemCaption(200 'c0 + exPrinting) = "<img>7</img> Orientation: Landscape #1"
	oPrint.Template = "ItemToolTip(200) = `Page Orientation`" // oPrint.ItemToolTip(200 'c0 + exPrinting) = "Page Orientation"
	oPrint.Template = "ItemCaption(201) = `<img>8</img> Size: Letter\r\nLetter #1\r\nA4#9\r\nA5#11\r\nA6#70`" // oPrint.ItemCaption(201 'c0 + exCancel) = "<img>8</img> Size: Letter\r\nLetter #1\r\nA4#9\r\nA5#11\r\nA6#70"
	oPrint.Template = "ItemToolTip(201) = `Paper Size`" // oPrint.ItemToolTip(201 'c0 + exCancel) = "Paper Size"
	oPrint.Template = "ItemCaption(202) = `<img>9</img> <fgcolor 0000FF>Scale <sha ;;0>1 x 1`" // oPrint.ItemCaption(202 'c0 + exPrintPreview) = "<img>9</img> <fgcolor 0000FF>Scale <sha ;;0>1 x 1"
	oPrint.Template = "ItemToolTip(202) = `Adjust To and Fit-To`" // oPrint.ItemToolTip(202 'c0 + exPrintPreview) = "Adjust To and Fit-To"
end function

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Images("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+thbK2hGrYhwAdbW2dtbdEqC+PolQEAEEqAePC2txLa3BJJbm3ZGQB2xt6AAcAD7nEZIfdK25D7W2vAAQEA=")
oPrint.ToolBarFormat = "-1,100,-1,101,102,106,-1,(200/201,-1,202),|,(-1,(-201/(103,-1,104,-1,105))):216"
oPrint.Options = "FitToPage = 1x1"
oPrint.PrintExt = oPrint
oPrint.Preview()

38
Can I add or display icons or images in the document's title

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oPrint.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oPrint.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oPrint.Caption = "<img>7</img> This is the new <img>pic1</img> document's title"
oPrint.PrintExt = oPrint
oPrint.Preview()

37
How can I change the icons on the captions / tooltips being shown on the toolbar of the Print and Print-Preview

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.ReplaceIcon(0,-1)
oPrint.Images("gBJJgBAIGAAHAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbqkQib/rlfsVhslllVelloqdqs8Ps1vuFtsFdt1putxvF0ucrtlRr1/u95wVrt2AvdWvuDxVVxNbxsZx+LyVCw1iyNQyuTzWbzmdz2f0Gh0Wj0ml02n1Gp1Wr1mt12v2Gx2Wz2m1neXwlgyu4p2Zsu8v2BrPAvUt4lP4+94Vc5PD5dL3eF6WHxnPsnNzHWpuR7HQ7Vm7vK6nZ6nhou+rXc7/e8ca81E9HO9vp6dh+PM9e2/X7/n9/z/sWiwfJXAaPJAkSSAAkqUQWnC/nAf5wI2f54QpCZ8H+fCNngOkOI2YAHRAjZAAfEkRxKB6UIQhCNxXFSDxfFiNRcjUSRNGsUQ+D5gA/DY/ngP8JwhIcIwpI0KwrDElQzDkmw6OkQSjEIHRtFEqyvFMXS1GEty7Lkvy1LExRRHkyx2D8gTTH4/oCA=")
oPrint.PrintExt = oPrint
oPrint.Preview()

36
Is it possible to change/customize the captions / tooltips being shown on the toolbar of the Print and Print-Preview

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "ItemCaption(2) = `<img>6</img> <fgcolor FF0000><b>Inchide`" // oPrint.ItemCaption(2) = "<img>6</img> <fgcolor FF0000><b>Inchide"
oPrint.Template = "ItemToolTip(2) = `Inchide preview`" // oPrint.ItemToolTip(2) = "Inchide preview"
oPrint.PrintExt = oPrint
oPrint.Preview()

35
Is it possible somehow to get/set all settings of the printer

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
? oPrint.Settings(256) 
oPrint.PrintExt = oPrint
oPrint.Preview()

34
How do I get the current's page size as described in the Paper Size field

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
? oPrint.Settings(11) 
oPrint.PrintExt = oPrint
oPrint.Preview()

33
How can I get the size of the page, in pixels

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(0) = 9" // oPrint.Settings(0) = 9
? "Width (pixels): " 
? oPrint.ClientWidth 
? "Height (pixels): " 
? oPrint.ClientHeight 
oPrint.PrintExt = oPrint
oPrint.Preview()

32
How can I get the size of the page, in dots

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(0) = 9" // oPrint.Settings(0) = 9
? "Width (dots): " 
? oPrint.Settings(12) 
? "Height (dots): " 
? oPrint.Settings(13) 
oPrint.PrintExt = oPrint
oPrint.Preview()

31
How can I display inches instead of millimeters

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(10) = 0" // oPrint.Settings(10) = 0
oPrint.PrintExt = oPrint
oPrint.Preview()

30
How can I display millimeters instead of inches

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(10) = 1" // oPrint.Settings(10) = 1
oPrint.PrintExt = oPrint
oPrint.Preview()

29
How can I change the paper's bottom margin

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(9) = 0" // oPrint.Settings(9) = 0
oPrint.PrintExt = oPrint
oPrint.Preview()

28
How can I change the paper's right margin

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(8) = 0" // oPrint.Settings(8) = 0
oPrint.PrintExt = oPrint
oPrint.Preview()

27
How can I change the paper's top margin

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(7) = 0" // oPrint.Settings(7) = 0
oPrint.PrintExt = oPrint
oPrint.Preview()

26
How can I change the paper's left margin

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(6) = 0" // oPrint.Settings(6) = 0
oPrint.PrintExt = oPrint
oPrint.Preview()

25
How do I specify the print quality
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
? oPrint.Settings(5) 
oPrint.PrintExt = oPrint
oPrint.Preview()

24
How do I specify the number of copies
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
? oPrint.Settings(4) 
oPrint.PrintExt = oPrint
oPrint.Preview()

23
How do I get the current printer's name

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
? oPrint.Settings(3) 
oPrint.PrintExt = oPrint
oPrint.Preview()

22
How do I change the page's orientation to portrait (method 2)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(2) = 1" // oPrint.Settings(2) = 1
oPrint.PrintExt = oPrint
oPrint.Preview()

21
How do I change the page's orientation to landscape (method 2)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(2) = 2" // oPrint.Settings(2) = 2
oPrint.PrintExt = oPrint
oPrint.Preview()

20
How do I change the paper's source
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(1) = 7" // oPrint.Settings(1) = 7
oPrint.PrintExt = oPrint
oPrint.Preview()

19
How can I change the paper's size to A4

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Template = "Settings(0) = 9" // oPrint.Settings(0) = 9
oPrint.PrintExt = oPrint
oPrint.Preview()

18
How do I change the page's orientation to portrait (method 1)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PageOrientation = 1
oPrint.PrintExt = oPrint
oPrint.Preview()

17
How do I change the page's orientation to landscape (method 1)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PageOrientation = 2
oPrint.PrintExt = oPrint
oPrint.Preview()

16
Is there any Fit-To option for print and print preview

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Options = "FitToPage = 2 x 2"
oPrint.PrintExt = oPrint
oPrint.Preview()

15
Is there any Fit-To-Page / Fit-To Tall option for print and print preview

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Options = "FitToPage = x 2"
oPrint.PrintExt = oPrint
oPrint.Preview()

14
Is there any Fit-To-Page / Fit-To Wide option for print and print preview

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Options = "FitToPage = 2 x"
oPrint.PrintExt = oPrint
oPrint.Preview()

13
Is there any Fit-To-Page / Adjust-To option for print and print preview

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Options = "FitToPage = 25%"
oPrint.PrintExt = oPrint
oPrint.Preview()

12
Is there any Fit-To-Page option for print and print preview

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Options = "FitToPage = On"
oPrint.PrintExt = oPrint
oPrint.Preview()

11
How can I display the document's title to a different place

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.CaptionAlignment = 0
oPrint.CaptionPosition = 1
oPrint.PrintExt = oPrint
oPrint.Preview()

10
How can I display the page numbers to a different place

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PageNumbersPosition = 0
oPrint.PageNumbersAlignment = 2
oPrint.PrintExt = oPrint
oPrint.Preview()

9
How do I hide the page numbers

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.ShowPageNumbers = .f.
oPrint.PrintExt = oPrint
oPrint.Preview()

8
Is it possible to display the page's index and count in the document's title

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Caption = "<font ;16>This is the page number <%page%> from <%count%> pages."
oPrint.PrintExt = oPrint
oPrint.Preview()

7
How do I change the document's title

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Caption = "<font ;16>This is your new <b>title</b>."
oPrint.PrintExt = oPrint
oPrint.Preview()

6
How do I programmatically print the control, not using the Print-Preview mainframe

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.DoPrint(.t.)

5
How can I print and print-preview the control (method 2)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExts = oPrint
oPrint.Preview()

4
How do I get the version of the eXPrint control
Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
? oPrint.Version 

3
How do I change the font to display the page's caption (method 2)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Caption = "<font ;24>Untitled Document"
oPrint.PrintExt = oPrint
oPrint.Preview()

2
How do I change the font to display the page's caption (method 1)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.Font.Size = 24
oPrint.PrintExt = oPrint
oPrint.Preview()

1
How can I print and print-preview the control (method 1)

Dim oPrint as P

oPrint = topparent:CONTROL_ACTIVEX1.activex
oPrint.PrintExt = oPrint
oPrint.Preview()