|
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)
with Print1 do
begin
ToolBarFormat := '-1,100,101,102,106,-1,103,-1,104,-1,105,1000[ww=1],(""/"")';
ItemCaption[EXPRINTLib_TLB.ItemCaptionEnum($380 Or Integer(EXPRINTLib_TLB.exToolBarPrint))] := 'Line1<br>Line2<br>Line3';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
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)
with Print1 do
begin
ToolBarFormat := '-1,100,101,102,106,-1,103,-1,104,-1,105,1000[ww=1]';
ItemCaption[EXPRINTLib_TLB.ItemCaptionEnum($380 Or Integer(EXPRINTLib_TLB.exToolBarPrint))] := '<font ;7>Line1<br>Line2';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
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)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
ItemCaption[EXPRINTLib_TLB.exSetupPrinter] := 'Stampante';
Preview();
end
|
|
78
|
What are the predefined keywords the Caption/ExtraCaption supports
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
CaptionAlignment := EXPRINTLib_TLB.exLeft;
Caption := '`<b>object</b>:` + object + `<br><b>opages</b>:` + opages+ `<br><b>opage</b>:` + opage+ `<br><b>pages</b>:` + pages+ `<br><b>pag' +
'e</b>:` + page';
Preview();
end
|
|
77
|
Is it possible to display different captions for different pages (sample 2)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
ExtraCaption('extra','`<font ;24>` + (page = pages ? `last` : ( ( page - 1 ) array(`first`,`second`,`third`,`forth`,`fifth`,`sixth`,`seventh`,`eighth`' +
',`ninth`,`tenth`) ) )',Null,Null);
Preview();
end
|
|
76
|
Is it possible to display different captions for different pages (sample 1)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Caption := '`<font ;24>` + (page mod 2 ? `odd` : `even`)';
Preview();
end
|
|
75
|
Is it possible to maximize the Print and Print Preview mainframe
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewState := EXPRINTLib_TLB.exPreviewStateMaximized;
Preview();
end
|
|
74
|
Can I preview the pages with no margins ( compact )
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewSettings[EXPRINTLib_TLB.exPreviewShowCompact] := OleVariant(True);
PreviewSettings[EXPRINTLib_TLB.exPreviewShowPageNumbers] := OleVariant(True);
PreviewSettings[EXPRINTLib_TLB.exPreviewPageNumberFormat] := '<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>';
Preview();
end
|
|
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
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewSettings[EXPRINTLib_TLB.exPreviewAllowMiddleZoom] := OleVariant(False);
Preview();
end
|
|
72
|
Is it possible to display the page number with the same size on the Preview workspace
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewSettings[EXPRINTLib_TLB.exPreviewShowPageNumbers] := OleVariant(True);
PreviewSettings[EXPRINTLib_TLB.exPreviewPageNumberFormat] := '<b><font ;14><out 000000><fgcolor=FFFFFF><%page%></fgcolor></out></font>';
Preview();
end
|
|
71
|
How can I prevent zooming the page whe user clicks it
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewSettings[EXPRINTLib_TLB.exPreviewAllowToggleZoom] := OleVariant(False);
Preview();
end
|
|
70
|
How can I select/unselect the pages to be printed when user right clicks the page in the preview
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewSettings[EXPRINTLib_TLB.exPreviewAllowUnprintPage] := OleVariant(False);
Preview();
end
|
|
69
|
How can I prevent scrolling the pages by drag and drop
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewSettings[EXPRINTLib_TLB.exPreviewAllowDragScroll] := OleVariant(False);
Preview();
end
|
|
68
|
How can I prevent scrolling the pages using the mouse wheel
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewSettings[EXPRINTLib_TLB.exPreviewAllowWheelScroll] := OleVariant(False);
Preview();
end
|
|
67
|
How can I change the preview's background color
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PreviewSettings[EXPRINTLib_TLB.exPreviewBackColor] := OleVariant(16777215);
Preview();
end
|
|
66
|
How do I change the message "The number of pages being loaded is: 100. Do you want to continue
with Print1 do
begin
UILimitPagesCountMessage := 'The number of pages being loaded is: <%count%>. Do you want to continue?';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
65
|
I'm asked every time after 100 pages loaded, to continue. Is there any way to change/prevent that (sample 2)
with Print1 do
begin
UILimitPagesCountMessage := '';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
64
|
I'm asked every time after 100 pages loaded, to continue. Is there any way to change/prevent that (sample 1)
with Print1 do
begin
UILimitPagesCount := -1;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
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)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
CopyTo('C:\Temp\Page%i.emf');
end
|
|
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)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
CopyTo('C:\Temp\Page.pdf');
end
|
|
61
|
Is it possible to export/copy the pages to a file (*.png, exports the pages to PNG format)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
CopyTo('C:\Temp\Page%i.png');
end
|
|
60
|
Is it possible to export/copy the pages to a file (*.tif *.tiff, exports the pages to TIFF format)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
CopyTo('C:\Temp\Page%i.tiff');
end
|
|
59
|
Is it possible to export/copy the pages to a file (*.gif, , exports the pages to GIF format)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
CopyTo('C:\Temp\Page%i.gif');
end
|
|
58
|
Is it possible to export/copy the pages to a file (*.jpg *.jpe *.jpeg *.jfif, exports the pages to JPEG format)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
CopyTo('C:\Temp\Page%i.jpg');
end
|
|
57
|
Is it possible to export/copy the pages to a file (*.bmp *.dib *.rle, exports the pages to BMP format)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
CopyTo('C:\Temp\Page%i.bmp');
end
|
|
56
|
The Preview is automatically closed after I create the object. Is it possible to close it, when user closes the Preview
with Print1 do
begin
AutoRelease := False;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
55
|
How do I change the paper's frame
with Print1 do
begin
PageFrameStyle := EXPRINTLib_TLB.exPageFrameSolid;
PageFrameColor := RGB(255,0,0);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
54
|
How cam I prevent resizing the paper's margins
with Print1 do
begin
ShowMargins := False;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
53
|
Is it possible to place the Print and Print Preview window at the bottom of the Z order
with Print1 do
begin
Foreground := 1;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
52
|
Is it possible to place the Print and Print Preview window at the top (sample 2)
with Print1 do
begin
Foreground := -2;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
51
|
Is it possible to place the Print and Print Preview window at the top of the Z-order (sample 1)
with Print1 do
begin
Foreground := -1;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
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
with Print1 do
begin
RuntimeKey := 'XXX';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
49
|
I've noticed that the page starts at 1. Can I change that
with Print1 do
begin
StartPageNumber := 10;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
48
|
Is it possible to display the page count right after the page number
with Print1 do
begin
PageNumberFormat := '<%page%>/<%count%>';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
47
|
How do I encode/decode plain text
with Print1 do
begin
sEncode := Encode64Text['AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDD'];
OutputDebugString( 'Encoded:' );
OutputDebugString( sEncode );
sDecode := Decode64Text[sEncode];
OutputDebugString( 'Decoded:' );
OutputDebugString( sDecode );
end
|
|
46
|
How do I programmatically encode an icon file to BASE64 string (Images)
with Print1 do
begin
sEncodeIcon := Encode64Icons['c:\exontrol\images\setup.ico'];
Images(OleVariant(sEncodeIcon));
Caption := 'This is an icon <img>7</img> loaded from BASE64 encoded string';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
45
|
How do I programmatically encode a picture file to BASE64 string (HTMLPicture)
with Print1 do
begin
sEncodePicture := Encode64['c:\exontrol\images\zipdisk.gif'];
HTMLPicture['pic1'] := OleVariant(sEncodePicture);
Caption := 'This is a picture <img>pic1:96</img> loaded from BASE64 encoded string';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
44
|
How do I find the number of pages
// Click event - Occurs when the user clicks a button in the toolbar.
procedure TForm1.Print1Click(ASender: TObject; ID : Integer;SelectedID : Integer);
begin
with Print1 do
begin
OutputDebugString( 'Pages:' );
OutputDebugString( PagesCount );
end
end;
with Print1 do
begin
ToolBarFormat := '1001';
ItemCaption[EXPRINTLib_TLB.ItemCaptionEnum($380 Or Integer(EXPRINTLib_TLB.exToolBarClose))] := 'Pages';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
43
|
How do I specify the range of pages to be printed
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
PageRange := '1,4';
Preview();
end
|
|
42
|
My control uses transparency, and so the print and print-preview does not show as on the screen. What can I do
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
AsScreen := True;
Preview();
end
|
|
41
|
How do I get a list of available printers
with Print1 do
begin
OutputDebugString( Printers );
end
|
|
40
|
Is it possible to assign an extra title or caption to the document
with Print1 do
begin
ExtraCaption('Left','Left-Title',OleVariant(0),OleVariant(0));
ExtraCaption('Right','Right-Title',OleVariant(0),OleVariant(2));
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
39
|
Can I change/customize the toolbar
// Click event - Occurs when the user clicks a button in the toolbar.
procedure TForm1.Print1Click(ASender: TObject; ID : Integer;SelectedID : Integer);
begin
with Print1 do
begin
OutputDebugString( 'Click' );
OutputDebugString( ID );
OutputDebugString( SelectedID );
end
end;
// Refresh event - Notifies your application when the pages are refreshed.
procedure TForm1.Print1Refresh(ASender: TObject; );
begin
with Print1 do
begin
ItemCaption[EXPRINTLib_TLB.ItemCaptionEnum($ffffff30 Or Integer(EXPRINTLib_TLB.exPage))] := 'Printer: <fgcolor=808080>Xerox</fgcolor>';
ItemToolTip[EXPRINTLib_TLB.ItemCaptionEnum($ffffff30 Or Integer(EXPRINTLib_TLB.exPage))] := 'Xerox';
ItemCaption[EXPRINTLib_TLB.ItemCaptionEnum($c0 Or Integer(EXPRINTLib_TLB.exPrinting))] := '<img>7</img> Orientation: Landscape #1';
ItemToolTip[EXPRINTLib_TLB.ItemCaptionEnum($c0 Or Integer(EXPRINTLib_TLB.exPrinting))] := 'Page Orientation';
ItemCaption[EXPRINTLib_TLB.ItemCaptionEnum($c0 Or Integer(EXPRINTLib_TLB.exCancel))] := '<img>8</img> Size: Letter\r\nLetter #1\r\nA4#9\r\nA5#11\r\nA6#70';
ItemToolTip[EXPRINTLib_TLB.ItemCaptionEnum($c0 Or Integer(EXPRINTLib_TLB.exCancel))] := 'Paper Size';
ItemCaption[EXPRINTLib_TLB.ItemCaptionEnum($c0 Or Integer(EXPRINTLib_TLB.exPrintPreview))] := '<img>9</img> <fgcolor 0000FF>Scale <sha ;;0>1 x 1';
ItemToolTip[EXPRINTLib_TLB.ItemCaptionEnum($c0 Or Integer(EXPRINTLib_TLB.exPrintPreview))] := 'Adjust To and Fit-To';
end
end;
with Print1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BGWBQwuwiNFmHRoqxSNE+NRolyCNEeTRohyyND2ZRocziNDOfRoX0SNCmlRoS1CNC' +
'GrRoO1yGoYzjWyv9nGz83D/3D83W53e93m/3774j/4j743F47/fXN5nO38ajsoEez60Z2gA7IzXKDIb/7vf6/a8fbjXVjSz9T/rnqWfss2333z4P04H34W55r65/8fL/' +
'n+/58vu6SNj2PY8mAV5YFaf5XFcVh/leWJYn+WBaFsf5bj8HJ/nAWI4w9EENQ5C0MQlCkHQhCRXwbA8Eo29z4K1GTbPy+scPw+0buS5D9wDAB8SFAiMumABYFgV6KSWi' +
'hZjqFR/nIXxFH+c5aDRKsryjKZ/ydKEmSZJBXRmAEapeHk0H+GM1n+FE3H+D84n+0QLn+B87n+BM9H+Ac+zIlkzLK+Ucx5Qsdv050BH+e1GUXRroyKjZXlmWswH7JZoF' +
'WP0LDsGB/m0Ugq0/UNOU8Z9NTBJkJwrGL1vbVz40NQlDxy5dFUYex/nnXZ/nlX0iI4jZYFuXkujuFp/l+R4p1TJZYjuF5/2faNmogZxVD7LsnwsXBgTIWtwT+lYlXIf4' +
'gXOf4b3Uf4W3af4SXgf4N3mf4J3sf4GXzcSVXBSsbVpHVZt45chHwf564RXtfnfhh/nbh9gOmGZbj+HkPFdLFnhjJbeIfjp/mYVA85BkTdIhj6KFhTp/m+VozxJDrZlv' +
'mcyF8PwlGopmbZwjeZlvfawUHHuA6Jgkh4QeuFHkf52aaf51agf5zaniJcO8f5wlyQOnlsNWuZeWI7BdkBTZGfD+H+e580vtVL7Oh5mbLaWxaeWuXnVrusFxrerCCf5f' +
'FeUx/l0PolGsX5BinnKNCxxp/idyB/iLyZ/h3yx/sCGU2zeEHOn+DHQTJxHFcJw3AcFf7eUU3579bIEB0VgtHVzXZ56Zp1ZaqQYhakY5NH+bxUi1hxnE6f5ZboZRSDtX' +
'R7YMeNf+hpZ5+cf/leZ5GxnaZpOeB4Xekyf5cEFvxtlGOh/nSXBH6YXJIn+cZSjloCefj+Z2fd9P10+Uo7/oV5oTsnWj3bS65RUA4CwEHpAsf48IHNPaib9XA/4Fj0H+' +
'FWDAkSRM9RKOoaKYxZLQV0ciBo9GDDvegP8d48oLQrhbCkeEJoRkPey08aCDRbh9BsmQYItBVLJESFwaowRHBmcWRkMkSR/hciYP8KcTx/rkCUP8IMVV0rrMI2MyAJYe' +
'RFGoL+IMQ4fP/K6DZAQ/WkNKH+PGNjs2DsJjTGweMKmGjpjsfdqY5h/hUj5BojJJwAACWELYXY/xaB3BYP8XoiwnsOHirlpo72HDvgsMgUYdR/yWkwO2Sjt5JDthjJmS' +
'8hg6gpWkLgXyZBeSrTIMUSQbYjlJldLAjcq1ilnBnHYdI8Izu5l8fZ2UfAqR+JSRmQRK1JqVIoOUcg4X0jqHY08dg8GmDzN4LIPDG5sMbHZNaaU1B0DpHXM8dqS1Vyql' +
'YTAN86x/honcP8ME8R/uNCwP8J893JOUTQxYGc/YyAAltP8rYHDxnToMgVSNCVg0KoPH8jUxyXCuRakscI4hxPwHOOof4xRRPohCp4dguGvUha9R+jYoX0DjHOOlrFFk' +
'l0SQaRsXdM6BFPpnIUuZJSM06ABTynxJKgU7qCTYV9E1qkPFoHZKA6RmuCGyKMKg/6n1RqY4KpKX6j1FpiRqgJMA7VfH+HGsQ/w11lH/EkMkS4mxPWYEutw/whVxn/V0' +
'2pS0Dh6SQgxFSDZzixlQhqHTUhnINHNYOwEO6/SpnOg9BqSEXB7rxLWdJW66V1LC+MH74hBWZssWIiwPiV2gI8SCDdQqeVDJuRCzpSB/B/IeRsQAAQ/j+thbK2hGrYhw' +
'AdbW2dtbdEqC+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 := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
38
|
Can I add or display icons or images in the document's title
with Print1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/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 := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
37
|
How can I change the icons on the captions / tooltips being shown on the toolbar of the Print and Print-Preview
with Print1 do
begin
ReplaceIcon(OleVariant(0),OleVariant(-1));
Images('gBJJgBAIGAAHAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbqkQib/rlfsVhslllVelloqdqs8Ps1vuFtsFdt1putxvF0ucrtlRr1/u95wVrt2AvdWvuDxVVxNbxsZx+LyVCw1iyNQyuTzWbzmdz2f0Gh0Wj0ml02n1Gp1' +
'Wr1mt12v2Gx2Wz2m1neXwlgyu4p2Zsu8v2BrPAvUt4lP4+94Vc5PD5dL3eF6WHxnPsnNzHWpuR7HQ7Vm7vK6nZ6nhou+rXc7/e8ca81E9HO9vp6dh+PM9e2/X7/n9/z/' +
'sWiwfJXAaPJAkSSAAkqUQWnC/nAf5wI2f54QpCZ8H+fCNngOkOI2YAHRAjZAAfEkRxKB6UIQhCNxXFSDxfFiNRcjUSRNGsUQ+D5gA/DY/ngP8JwhIcIwpI0KwrDElQzD' +
'kmw6OkQSjEIHRtFEqyvFMXS1GEty7Lkvy1LExRRHkyx2D8gTTH4/oCA=');
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
36
|
Is it possible to change/customize the captions / tooltips being shown on the toolbar of the Print and Print-Preview
with Print1 do
begin
ItemCaption[EXPRINTLib_TLB.exClose] := '<img>6</img> <fgcolor FF0000><b>Inchide';
ItemToolTip[EXPRINTLib_TLB.exClose] := 'Inchide preview';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
35
|
Is it possible somehow to get/set all settings of the printer
with Print1 do
begin
OutputDebugString( Settings[EXPRINTLib_TLB.exAllFields] );
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
34
|
How do I get the current's page size as described in the Paper Size field
with Print1 do
begin
OutputDebugString( Settings[EXPRINTLib_TLB.exFormName] );
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
33
|
How can I get the size of the page, in pixels
with Print1 do
begin
Settings[EXPRINTLib_TLB.exPaperSize] := OleVariant(9);
OutputDebugString( 'Width (pixels): ' );
OutputDebugString( ClientWidth );
OutputDebugString( 'Height (pixels): ' );
OutputDebugString( ClientHeight );
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
32
|
How can I get the size of the page, in dots
with Print1 do
begin
Settings[EXPRINTLib_TLB.exPaperSize] := OleVariant(9);
OutputDebugString( 'Width (dots): ' );
OutputDebugString( Settings[EXPRINTLib_TLB.exPaperWidth] );
OutputDebugString( 'Height (dots): ' );
OutputDebugString( Settings[EXPRINTLib_TLB.exPaperHeight] );
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
31
|
How can I display inches instead of millimeters
with Print1 do
begin
Settings[EXPRINTLib_TLB.exDisplayInch] := OleVariant(0);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
30
|
How can I display millimeters instead of inches
with Print1 do
begin
Settings[EXPRINTLib_TLB.exDisplayInch] := OleVariant(1);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
29
|
How can I change the paper's bottom margin
with Print1 do
begin
Settings[EXPRINTLib_TLB.exBottomMargin] := OleVariant(0);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
28
|
How can I change the paper's right margin
with Print1 do
begin
Settings[EXPRINTLib_TLB.exRightMargin] := OleVariant(0);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
27
|
How can I change the paper's top margin
with Print1 do
begin
Settings[EXPRINTLib_TLB.exTopMargin] := OleVariant(0);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
26
|
How can I change the paper's left margin
with Print1 do
begin
Settings[EXPRINTLib_TLB.exLeftMargin] := OleVariant(0);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
25
|
How do I specify the print quality
with Print1 do
begin
OutputDebugString( Settings[EXPRINTLib_TLB.exPrintQuality] );
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
24
|
How do I specify the number of copies
with Print1 do
begin
OutputDebugString( Settings[EXPRINTLib_TLB.exPrinterCopies] );
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
23
|
How do I get the current printer's name
with Print1 do
begin
OutputDebugString( Settings[EXPRINTLib_TLB.exPrinterName] );
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
22
|
How do I change the page's orientation to portrait (method 2)
with Print1 do
begin
Settings[EXPRINTLib_TLB.exPageOrientation] := OleVariant(1);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
21
|
How do I change the page's orientation to landscape (method 2)
with Print1 do
begin
Settings[EXPRINTLib_TLB.exPageOrientation] := OleVariant(2);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
20
|
How do I change the paper's source
with Print1 do
begin
Settings[EXPRINTLib_TLB.exPaperSource] := OleVariant(7);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
19
|
How can I change the paper's size to A4
with Print1 do
begin
Settings[EXPRINTLib_TLB.exPaperSize] := OleVariant(9);
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
18
|
How do I change the page's orientation to portrait (method 1)
with Print1 do
begin
PageOrientation := EXPRINTLib_TLB.exPortrait;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
17
|
How do I change the page's orientation to landscape (method 1)
with Print1 do
begin
PageOrientation := EXPRINTLib_TLB.exLandscape;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
16
|
Is there any Fit-To option for print and print preview
with Print1 do
begin
Options := 'FitToPage = 2 x 2';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
15
|
Is there any Fit-To-Page / Fit-To Tall option for print and print preview
with Print1 do
begin
Options := 'FitToPage = x 2';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
14
|
Is there any Fit-To-Page / Fit-To Wide option for print and print preview
with Print1 do
begin
Options := 'FitToPage = 2 x';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
13
|
Is there any Fit-To-Page / Adjust-To option for print and print preview
with Print1 do
begin
Options := 'FitToPage = 25%';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
12
|
Is there any Fit-To-Page option for print and print preview
with Print1 do
begin
Options := 'FitToPage = On';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
11
|
How can I display the document's title to a different place
with Print1 do
begin
CaptionAlignment := EXPRINTLib_TLB.exLeft;
CaptionPosition := EXPRINTLib_TLB.exFooter;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
10
|
How can I display the page numbers to a different place
with Print1 do
begin
PageNumbersPosition := EXPRINTLib_TLB.exHeader;
PageNumbersAlignment := EXPRINTLib_TLB.exRight;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
9
|
How do I hide the page numbers
with Print1 do
begin
ShowPageNumbers := False;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
8
|
Is it possible to display the page's index and count in the document's title
with Print1 do
begin
Caption := '<font ;16>This is the page number <%page%> from <%count%> pages.';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
7
|
How do I change the document's title
with Print1 do
begin
Caption := '<font ;16>This is your new <b>title</b>.';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
6
|
How do I programmatically print the control, not using the Print-Preview mainframe
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
DoPrint(OleVariant(True));
end
|
|
5
|
How can I print and print-preview the control (method 2)
with Print1 do
begin
PrintExts := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
4
|
How do I get the version of the eXPrint control
with Print1 do
begin
OutputDebugString( Version );
end
|
|
3
|
How do I change the font to display the page's caption (method 2)
with Print1 do
begin
Caption := '<font ;24>Untitled Document';
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
2
|
How do I change the font to display the page's caption (method 1)
with Print1 do
begin
Font.Size := 24;
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|
|
1
|
How can I print and print-preview the control (method 1)
with Print1 do
begin
PrintExt := (IUnknown(Print1.DefaultInterface) as EXPRINTLib_TLB.Print);
Preview();
end
|