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

TPaperEQ

Constants

Variables


Functions


Procedure Register;

------------------------------------------------------------------------} { Procedure REGISTER purpose: Standard {------------------------------------------------------------------------

Types


TPaperEQ = record
Size : Integer;
Length : Integer;
Width : Integer;
end;

Constants


Variables