/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: * * * *********************************************************************/ /**************************************************************************** File _osprint.p Syntax RUN adecomm/_osprint.p ( INPUT p_Window, INPUT p_PrintFile, INPUT p_FontNumber, INPUT p_PrintFlags, INPUT p_PageSize, INPUT p_PageCount, OUTPUT p_Printed ). Purpose Send a specified operating system text file to the default printer. Remarks Output is sent to printer as PAGED output, with a default page size of zero. This lets the printer handle the paging. The page size can be specified using p_PageSize. Max characters per line: 255. Under MS-Windows, the MSW Print Setup dialog box is called via a PROGRESS DLL (PROPRINT.DLL) and the SESSION:PRINTER-CONTROL-HANDLE is always cleared. Author J. Palazzo Created Mar 1994 Updated Mar 1999 Removed 16-bit proprint.dll entry and call. ****************************************************************************/ DEFINE INPUT PARAMETER p_Window AS WIDGET NO-UNDO. /* Parent window for Dialogs and Message boxes. Default to CURRENT-WINDOW if p_Window is not valid. */ DEFINE INPUT PARAMETER p_PrintFile AS CHAR NO-UNDO. /* Text file to print. Can be specified relative to PROPATH. */ DEFINE INPUT PARAMETER p_FontNumber AS INTEGER NO-UNDO. /* PROGRESS Font Number to use when printing file. MSW Only. This may not match screen font exactly and the printer driver will make the ultimate choice, not PROGRESS. */ DEFINE INPUT PARAMETER p_PrintFlags AS INTEGER NO-UNDO. /* Integer expression that specifies various print options. The table below lists the flag values that correspond to each print option. If a zero (0) value is passed, option defaults are used. Print Option Flag Value Meaning useDialog 1 Display the MSW Print Setup Dialog. Default is to not display the Print dialog. useLandscape 2 Set print orientation to Landscape. Default orientation is set in the printer properties in the Control Panel. You can specify any combination of these flags. For example, you can pass three (1 + 2) as an input parameter to specify that the Print Setup Dialog be displayed and that the print orientation be landscape. */ DEFINE INPUT PARAMETER p_PageSize AS INTEGER NO-UNDO. /* Page length - number of lines per page. */ DEFINE INPUT PARAMETER p_PageCount AS INTEGER NO-UNDO. /* If non-zero, then enable the page range selection controls in the printer setup dialog. If zero, the entire text file is printed. */ DEFINE OUTPUT PARAMETER p_Printed AS LOGICAL INIT TRUE NO-UNDO . /* Returns TRUE if able to complete the OUTPUT TO PRINTER. */ DEFINE STREAM In_Stream. DEFINE STREAM Out_Stream. DEFINE VAR Text_Line AS CHARACTER FORMAT "x(255)" NO-UNDO . DEFINE VAR PrintResult AS INTEGER INITIAL 0 NO-UNDO . DEFINE VAR PrintStatus AS LOGICAL INITIAL TRUE NO-UNDO . DO ON STOP UNDO, RETRY ON ERROR UNDO, RETRY: IF NOT RETRY THEN DO: /* Point to a valid window handle. */ ASSIGN p_Window = IF VALID-HANDLE( p_Window ) THEN p_Window ELSE IF VALID-HANDLE( CURRENT-WINDOW ) THEN CURRENT-WINDOW ELSE DEFAULT-WINDOW. /* Get file info on file to print. */ ASSIGN FILE-INFO:FILE-NAME = p_PrintFile NO-ERROR . IF ( FILE-INFO:FULL-PATHNAME = ? ) THEN DO: MESSAGE "Unable to find file to print." VIEW-AS ALERT-BOX ERROR BUTTONS OK IN WINDOW p_Window. STOP. END. ASSIGN p_PrintFile = FILE-INFO:FULL-PATHNAME. /* Run Proprint DLL for Windows and 32bit Windows Char Console. */ IF (SESSION:WINDOW-SYSTEM BEGINS "MS-WIN") OR (OPSYS = "WIN32" AND SESSION:WINDOW-SYSTEM = "TTY") THEN DO: /* Clear the current print handle. */ ASSIGN SESSION:PRINTER-CONTROL-HANDLE = ?. /* Print dialog with PORTRAIT option */ IF (p_PrintFlags = 1) THEN DO: SYSTEM-DIALOG PRINTER-SETUP PORTRAIT IN WINDOW p_Window UPDATE PrintStatus. END. /* Print dialog with LANDSCAPE option */ ELSE IF (p_PrintFlags = 3) THEN DO: SYSTEM-DIALOG PRINTER-SETUP LANDSCAPE IN WINDOW p_Window UPDATE PrintStatus. END. IF (PrintStatus) THEN DO: RUN PrintFile. END. ASSIGN p_Printed = PrintStatus. END. ELSE DO: /* All other operating environments/windowing systems. Break out into a CASE statement to customize. */ RUN PrintFile. END. END. /* NOT RETRY */ ELSE ASSIGN p_Printed = FALSE. INPUT STREAM In_Stream CLOSE. OUTPUT STREAM Out_Stream CLOSE. END. /* -----------------------------------------------------------------------*/ PROCEDURE ProPrintFile EXTERNAL "PROPRINT.DLL": /* Internal Procedure call to MS-Windows DLL to Print Setup dialog. */ DEFINE INPUT PARAMETER hControl AS LONG. DEFINE INPUT PARAMETER fPrintFlags AS LONG. DEFINE INPUT PARAMETER hWndParent AS LONG. DEFINE INPUT PARAMETER nFontNo AS LONG. DEFINE INPUT PARAMETER lpszFile AS CHARACTER. DEFINE INPUT PARAMETER nPages AS LONG. DEFINE RETURN PARAMETER Print_Result AS LONG. END. /* -----------------------------------------------------------------------*/ PROCEDURE PrintFile: /* Print an operating system file via simple OUTPUT TO PRINTER. */ INPUT STREAM In_Stream FROM VALUE(p_PrintFile) NO-ECHO NO-MAP. IF (p_PrintFlags = 2) THEN DO: OUTPUT STREAM Out_Stream TO PRINTER LANDSCAPE PAGE-SIZE VALUE( p_PageSize ) FONT VALUE(p_FontNumber). END. ELSE IF (p_PrintFlags = 1 OR p_PrintFlags = 3) THEN DO: /* page orientation will be taken from print dialog */ OUTPUT STREAM Out_Stream TO PRINTER PAGE-SIZE VALUE( p_PageSize ) FONT VALUE(p_FontNumber). END. ELSE DO: OUTPUT STREAM Out_Stream TO PRINTER PORTRAIT PAGE-SIZE VALUE( p_PageSize ) FONT VALUE(p_FontNumber). END. /* Frame must be down frame, so scope to REPEAT. */ REPEAT ON STOP UNDO, LEAVE WITH FRAME f_Print: IMPORT STREAM In_Stream UNFORMATTED Text_Line. DISPLAY STREAM Out_Stream Text_Line WITH FRAME f_Print NO-LABELS STREAM-IO NO-BOX USE-TEXT WIDTH 255. END. END PROCEDURE. /* _osprint.p - end of file */