#ifndef _PRINT_CH
#define _PRINT_CH

//----------------------------------------------------------------------------//
// Printer

#xcommand PRINT [ <oPrint> ] ;
             [ <name:NAME,DOC> <cDocument> ] ;
       => ;
          [ <oPrint> := ] PrintBegin( [<cDocument>] )

#xcommand PAGE => PageBegin()

#xcommand ENDPAGE => PageEnd()

#xcommand ENDPRINT => PrintEnd()

//----------------------------------------------------------------------------//
// Print Preview    - original idea by Garry Prefontaine

#xcommand REDEFINE PRINTPREVIEW <oPrintPV> ;
             [ ON PAINT <uPaint> ] ;
             [ VIEWSIZE <nViewWidth>, <nViewHeight> ] ;
             [ RANGE <nMinPage>, <nMaxPage> ] ;
             [ ID <nId> ] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ <color:COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
       => ;
          <oPrintPV> := TPrintPV():ReDefine( <{uPaint}>, <nMinPage>,;
             <nMaxPage>, <nViewWidth>, <nViewHeight>, <nId>, <oWnd>,;
             <nClrFore>, <nClrBack> )

//----------------------------------------------------------------------------//

#endif