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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PreviewSettings(3) = True
		.PreviewSettings(0) = True
		.PreviewSettings(1) = "<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>"
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PreviewSettings(9) = False
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PreviewSettings(0) = True
		.PreviewSettings(1) = "<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>"
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

71:
How can I prevent zooming the page whe user clicks it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PreviewSettings(8) = False
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

70:
How can I select/unselect the pages to be printed when user right clicks the page in the preview
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PreviewSettings(7) = False
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

69:
How can I prevent scrolling the pages by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PreviewSettings(6) = False
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

68:
How can I prevent scrolling the pages using the mouse wheel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PreviewSettings(5) = False
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

67:
How can I change the preview's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PreviewSettings(4) = 16777215
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.UILimitPagesCountMessage = "The number of pages being loaded is: <%count%>. Do you want to continue?"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

65:
I'm asked every time after 100 pages loaded, to continue. Is there any way to change/prevent that (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.UILimitPagesCountMessage = ""
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

64:
I'm asked every time after 100 pages loaded, to continue. Is there any way to change/prevent that (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.UILimitPagesCount = -1
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.CopyTo "C:\Temp\Page%i.emf"
	End With
End Function
</SCRIPT>
</BODY>

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)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.CopyTo "C:\Temp\Page.pdf"
	End With
End Function
</SCRIPT>
</BODY>

61:
Is it possible to export/copy the pages to a file (*.png, exports the pages to PNG format)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.CopyTo "C:\Temp\Page%i.png"
	End With
End Function
</SCRIPT>
</BODY>

60:
Is it possible to export/copy the pages to a file (*.tif *.tiff, exports the pages to TIFF format)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.CopyTo "C:\Temp\Page%i.tiff"
	End With
End Function
</SCRIPT>
</BODY>

59:
Is it possible to export/copy the pages to a file (*.gif, , exports the pages to GIF format)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.CopyTo "C:\Temp\Page%i.gif"
	End With
End Function
</SCRIPT>
</BODY>

58:
Is it possible to export/copy the pages to a file (*.jpg *.jpe *.jpeg *.jfif, exports the pages to JPEG format)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.CopyTo "C:\Temp\Page%i.jpg"
	End With
End Function
</SCRIPT>
</BODY>

57:
Is it possible to export/copy the pages to a file (*.bmp *.dib *.rle, exports the pages to BMP format)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.CopyTo "C:\Temp\Page%i.bmp"
	End With
End Function
</SCRIPT>
</BODY>

56:
The Preview is automatically closed after I create the object. Is it possible to close it, when user closes the Preview
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.AutoRelease = False
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

55:
How do I change the paper's frame

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PageFrameStyle = 1
		.PageFrameColor = RGB(255,0,0)
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

54:
How cam I prevent resizing the paper's margins

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.ShowMargins = False
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

53:
Is it possible to place the Print and Print Preview window at the bottom of the Z order
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Foreground = 1
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

52:
Is it possible to place the Print and Print Preview window at the top (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Foreground = -2
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

51:
Is it possible to place the Print and Print Preview window at the top of the Z-order (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Foreground = -1
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.RuntimeKey = "XXX"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.StartPageNumber = 10
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PageNumberFormat = "<%page%>/<%count%>"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

47:
How do I encode/decode plain text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		sEncode = .Encode64Text("AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDD")
		alert( "Encoded:" )
		alert( sEncode )
		sDecode = .Decode64Text(sEncode)
		alert( "Decoded:" )
		alert( sDecode )
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		sEncodeIcon = .Encode64Icons("c:\exontrol\images\setup.ico")
		.Images sEncodeIcon
		.Caption = "This is an icon <img>7</img> loaded from BASE64 encoded string"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		sEncodePicture = .Encode64("c:\exontrol\images\zipdisk.gif")
		.HTMLPicture("pic1") = sEncodePicture
		.Caption = "This is a picture <img>pic1:96</img> loaded from BASE64 encoded string"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

44:
How do I find the number of pages
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Print1_Click(ID,SelectedID)
	With Print1
		alert( "Pages:" )
		alert( .PagesCount )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.ToolBarFormat = "1001"
		.ItemCaption(1001) = "Pages" ' &H380 Or ItemCaptionEnum.exToolBarClose
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.PageRange = "1,4"
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

42:
My control uses transparency, and so the print and print-preview does not show as on the screen. What can I do
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.AsScreen = True
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

41:
How do I get a list of available printers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		alert( .Printers )
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.ExtraCaption "Left","Left-Title",0,0
		.ExtraCaption "Right","Right-Title",0,2
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

39:
Can I change/customize the toolbar

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Print1_Click(ID,SelectedID)
	With Print1
		alert( "Click" )
		alert( ID )
		alert( SelectedID )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Print1_Refresh()
	With Print1
		.ItemCaption(-201) = "Printer: <fgcolor=808080>Xerox</fgcolor>" ' &Hffffff30 Or ItemCaptionEnum.exPage
		.ItemToolTip(-201) = "Xerox" ' &Hffffff30 Or ItemCaptionEnum.exPage
		.ItemCaption(200) = "<img>7</img> Orientation: Landscape #1" ' &Hc0 Or ItemCaptionEnum.exPrinting
		.ItemToolTip(200) = "Page Orientation" ' &Hc0 Or ItemCaptionEnum.exPrinting
		.ItemCaption(201) = "<img>8</img> Size: Letter\r\nLetter #1\r\nA4#9\r\nA5#11\r\nA6#70" ' &Hc0 Or ItemCaptionEnum.exCancel
		.ItemToolTip(201) = "Paper Size" ' &Hc0 Or ItemCaptionEnum.exCancel
		.ItemCaption(202) = "<img>9</img> <fgcolor 0000FF>Scale <sha ;;0>1 x 1" ' &Hc0 Or ItemCaptionEnum.exPrintPreview
		.ItemToolTip(202) = "Adjust To and Fit-To" ' &Hc0 Or ItemCaptionEnum.exPrintPreview
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BGWBQwuwiNFmHRoqxSNE+NRolyCNEeTRohyyND2ZRocziNDOfRoX0SNCmlRoS1CN" & _
	"CGrRoO1yGoYzjWyv9nGz83D/3D83W53e93m/3774j/4j743F47/fXN5nO38ajsoEez60Z2gA7IzXKDIb/7vf6/a8fbjXVjSz9T/rnqWfss2333z4P04H34W55r65/8fL" & _
	"/n+/58vu6SNj2PY8mAV5YFaf5XFcVh/leWJYn+WBaFsf5bj8HJ/nAWI4w9EENQ5C0MQlCkHQhCRXwbA8Eo29z4K1GTbPy+scPw+0buS5D9wDAB8SFAiMumABYFgV6KSW" & _
	"ihZjqFR/nIXxFH+c5aDRKsryjKZ/ydKEmSZJBXRmAEapeHk0H+GM1n+FE3H+D84n+0QLn+B87n+BM9H+Ac+zIlkzLK+Ucx5Qsdv050BH+e1GUXRroyKjZXlmWswH7JZo" & _
	"FWP0LDsGB/m0Ugq0/UNOU8Z9NTBJkJwrGL1vbVz40NQlDxy5dFUYex/nnXZ/nlX0iI4jZYFuXkujuFp/l+R4p1TJZYjuF5/2faNmogZxVD7LsnwsXBgTIWtwT+lYlXIf" & _
	"4gXOf4b3Uf4W3af4SXgf4N3mf4J3sf4GXzcSVXBSsbVpHVZt45chHwf564RXtfnfhh/nbh9gOmGZbj+HkPFdLFnhjJbeIfjp/mYVA85BkTdIhj6KFhTp/m+VozxJDrZl" & _
	"vmcyF8PwlGopmbZwjeZlvfawUHHuA6Jgkh4QeuFHkf52aaf51agf5zaniJcO8f5wlyQOnlsNWuZeWI7BdkBTZGfD+H+e580vtVL7Oh5mbLaWxaeWuXnVrusFxrerCCf5" & _
	"fFeUx/l0PolGsX5BinnKNCxxp/idyB/iLyZ/h3yx/sCGU2zeEHOn+DHQTJxHFcJw3AcFf7eUU3579bIEB0VgtHVzXZ56Zp1ZaqQYhakY5NH+bxUi1hxnE6f5ZboZRSDt" & _
	"XR7YMeNf+hpZ5+cf/leZ5GxnaZpOeB4Xekyf5cEFvxtlGOh/nSXBH6YXJIn+cZSjloCefj+Z2fd9P10+Uo7/oV5oTsnWj3bS65RUA4CwEHpAsf48IHNPaib9XA/4Fj0H" & _
	"+FWDAkSRM9RKOoaKYxZLQV0ciBo9GDDvegP8d48oLQrhbCkeEJoRkPey08aCDRbh9BsmQYItBVLJESFwaowRHBmcWRkMkSR/hciYP8KcTx/rkCUP8IMVV0rrMI2MyAJY" & _
	"eRFGoL+IMQ4fP/K6DZAQ/WkNKH+PGNjs2DsJjTGweMKmGjpjsfdqY5h/hUj5BojJJwAACWELYXY/xaB3BYP8XoiwnsOHirlpo72HDvgsMgUYdR/yWkwO2Sjt5JDthjJm" & _
	"S8hg6gpWkLgXyZBeSrTIMUSQbYjlJldLAjcq1ilnBnHYdI8Izu5l8fZ2UfAqR+JSRmQRK1JqVIoOUcg4X0jqHY08dg8GmDzN4LIPDG5sMbHZNaaU1B0DpHXM8dqS1Vyq" & _
	"lYTAN86x/honcP8ME8R/uNCwP8J893JOUTQxYGc/YyAAltP8rYHDxnToMgVSNCVg0KoPH8jUxyXCuRakscI4hxPwHOOof4xRRPohCp4dguGvUha9R+jYoX0DjHOOlrFF" & _
	"kl0SQaRsXdM6BFPpnIUuZJSM06ABTynxJKgU7qCTYV9E1qkPFoHZKA6RmuCGyKMKg/6n1RqY4KpKX6j1FpiRqgJMA7VfH+HGsQ/w11lH/EkMkS4mxPWYEutw/whVxn/V" & _
	"02pS0Dh6SQgxFSDZzixlQhqHTUhnINHNYOwEO6/SpnOg9BqSEXB7rxLWdJW66V1LC+MH74hBWZssWIiwPiV2gI8SCDdQqeVDJuRCzpSB/B/IeRsQAAQ/j+thbK2hGrYh" & _
	"wAdbW2dtbdEqC+PolQEAEEqAePC2txLa3BJJbm3ZGQB2xt6AAcAD7nEZIfdK25D7W2vAAQEA="
		.ToolBarFormat = "-1,100,-1,101,102,106,-1,(200/201,-1,202),|,(-1,(-201/(103,-1,104,-1,105))):216"
		.Options = "FitToPage = 1x1"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.Caption = "<img>7</img> This is the new <img>pic1</img> document's title"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.ReplaceIcon 0,-1
		.Images "gBJJgBAIGAAHAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbqkQib/rlfsVhslllVelloqdqs8Ps1vuFtsFdt1putxvF0ucrtlRr1/u95wVrt2AvdWvuDxVVxNbxsZx+LyVCw1iyNQyuTzWbzmdz2f0Gh0Wj0ml02n1Gp" & _
	"1Wr1mt12v2Gx2Wz2m1neXwlgyu4p2Zsu8v2BrPAvUt4lP4+94Vc5PD5dL3eF6WHxnPsnNzHWpuR7HQ7Vm7vK6nZ6nhou+rXc7/e8ca81E9HO9vp6dh+PM9e2/X7/n9/z" & _
	"/sWiwfJXAaPJAkSSAAkqUQWnC/nAf5wI2f54QpCZ8H+fCNngOkOI2YAHRAjZAAfEkRxKB6UIQhCNxXFSDxfFiNRcjUSRNGsUQ+D5gA/DY/ngP8JwhIcIwpI0KwrDElQz" & _
	"Dkmw6OkQSjEIHRtFEqyvFMXS1GEty7Lkvy1LExRRHkyx2D8gTTH4/oCA="
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.ItemCaption(2) = "<img>6</img> <fgcolor FF0000><b>Inchide"
		.ItemToolTip(2) = "Inchide preview"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		alert( .Settings(256) )
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		alert( .Settings(11) )
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(0) = 9
		alert( "Width (pixels): " )
		alert( .ClientWidth )
		alert( "Height (pixels): " )
		alert( .ClientHeight )
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(0) = 9
		alert( "Width (dots): " )
		alert( .Settings(12) )
		alert( "Height (dots): " )
		alert( .Settings(13) )
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

31:
How can I display inches instead of millimeters

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(10) = 0
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

30:
How can I display millimeters instead of inches

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(10) = 1
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

29:
How can I change the paper's bottom margin

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(9) = 0
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

28:
How can I change the paper's right margin

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(8) = 0
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

27:
How can I change the paper's top margin

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(7) = 0
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

26:
How can I change the paper's left margin

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(6) = 0
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

25:
How do I specify the print quality
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		alert( .Settings(5) )
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

24:
How do I specify the number of copies
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		alert( .Settings(4) )
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

23:
How do I get the current printer's name

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		alert( .Settings(3) )
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(2) = 1
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(2) = 2
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

20:
How do I change the paper's source
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(1) = 7
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Settings(0) = 9
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PageOrientation = 1
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PageOrientation = 2
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Options = "FitToPage = 2 x 2"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Options = "FitToPage = x 2"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Options = "FitToPage = 2 x"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Options = "FitToPage = 25%"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Options = "FitToPage = On"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.CaptionAlignment = 0
		.CaptionPosition = 1
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PageNumbersPosition = 0
		.PageNumbersAlignment = 2
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

9:
How do I hide the page numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.ShowPageNumbers = False
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Caption = "<font ;16>This is the page number <%page%> from <%count%> pages."
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

7:
How do I change the document's title

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Caption = "<font ;16>This is your new <b>title</b>."
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.DoPrint True
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExts = Print1
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

4:
How do I get the version of the eXPrint control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		alert( .Version )
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Caption = "<font ;24>Untitled Document"
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.Font.Size = 24
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DEB0D2B-6EBD-4A22-9835-48AB9CDC8088" id="Print1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Print1
		.PrintExt = Print1.Object
		.Preview 
	End With
End Function
</SCRIPT>
</BODY>