Unit amPrvPrt |
***************************************************************** * Copyright (c) 1997 Achim Metzen, Bonn Germany * * Compuserve 100733,615 * * * * For use read readme.txt. Distribution is forbidden * * * * Email only to: Achim.Metzen@bonn.netsurf.de * * * * Project: Preview and Print enhancements for Quickreport * * * * * * Unit: amPrvPrt.pas * * Version: 2.0 * * Datum: 01.07.97 11:30:10 * * * * Notes : We have there after previewing all the data we need. * * Also after QuickRep.Prepare. * * All we have to do, is to put TGraphic (TMetafile) * * from the QRPrinter pages to a new printer objects * * canvas - and just print; that's all. For this purpose * * i encapsulated the TPrinter (of Delphi * * not Quickreport) class: TamPrinter. * * If created by the TQRStdPreviewDialog it works * * automatically together. * * The TamPrinter may be also used without setting * * TQRStdPreviewDialog to print a report. * * See copyrigth information above. * * * * Please any comments und hints to: * * Achim.Metzen@bonn.netsurf.de. * * I Would be very glad to get responses. * * * * History: * * * * *
Classes |
TamPrinter - -----------------------------------} {TamPrinter
TQRStdPreviewDialog - --------------------------------------} {TQRStdPreviewDialog
TSelPrinterDlg - TSelPrinterDlg
Functions |
Register - ------------------------------------------------------------------------} { Procedure REGISTER
purpose: Standard
{------------------------------------------------------------------------
Types |
Constants |
Variables |
Functions |
Types |
TPaperEQ = record
Size : Integer;
Length : Integer;
Width : Integer;
end;
Constants |
Variables |