FiveTech Support Forums

 
*------------------*
Function OpenDrawer
local oFnt, oPrinter
 
   PRINTER oPrinter FROM USER
   // DEFINE FONT oFnt NAME 'Courier' SIZE 0, -8 OF oPrinter
   DEFINE FONT oFnt NAME 'control' SIZE 0, -8 OF oPrinter
   
//   oPrinter:StartPage()
   oPrinter:Say( 1, 1, 'A', oFnt )
   
   ENDPRINT
   
   oFnt:End()
 
return

<ol><li style="" class="li1">     if GetPvProfString( "Kassenlade", "UEBERDRUCKER" , "N", ".\INI\TOUCH.INI" ) ="J"</li><li style="" class="li2">                    oPrnDOS := TDosPrn():New("LPT1")</li><li style="" class="li1">                    *oPrnDOS:write(chr(27)+chr(112)+chr(15)+chr(15))</li><li style="" class="li2">                    oPrnDOS:write(chr(27)+chr(112)+chr(0)+chr(10)+chr(100))</li><li style="" class="li1">                    oPrnDOS:cFormFeed:="0"</li><li style="" class="li2">                    oPrnDOS:EndPage()           // optional</li><li style="" class="li1">                    oPrnDOS:End()</li><li style="" class="li2"> </li><li style="" class="li1">                else</li><li style="" class="li2"> </li><li style="" class="li1">                    oPrn   := PrintBegin("DRUCKER", .f., .f.,cPrnName )</li><li style="" class="li2">                    PAGE</li><li style="" class="li1">                    DEFINE FONT oFntNormal NAME "ARIAL" SIZE 16,40</li><li style="" class="li2">                    oPrn:Say( 0,5 ,   (chr(27)+chr(112)+chr(0)+chr(10)+chr(100))           , oFntNormal  )</li><li style="" class="li1">                    ENDPAGE</li><li style="" class="li2">                    ENDPRINT</li><li style="" class="li1">                    RELEASE FONT oFntNormal</li><li style="" class="li2"> </li><li style="" class="li1">                ENDIF</li><li style="" class="li2"> </li></ol>

<ol><li style="" class="li1"> </li><li style="" class="li2">ICAISSE := GetPvProfString("PRINTER","TICKET",,CINIFile )   // this is the printer you should change to identify yours</li><li style="" class="li1">OPRN    := TPrinter():New("TEST Impression", .F. , .F. , ICAISSE, .T.)</li><li style="" class="li2"> </li><li style="" class="li1">Ntext   := SPACE(45)</li><li style="" class="li2">NTEXT   := CHR(27) +'p'+ CHR(0)+CHR(10)+CHR(25)</li><li style="" class="li1"> </li><li style="" class="li2">CFILE := "c:\test.TXT"  // could be any name</li><li style="" class="li1">nHandle := fCreate( cFile )</li><li style="" class="li2">FWRITE( nHandle, NTEXT)</li><li style="" class="li1">fClose( nHandle )</li><li style="" class="li2"> </li><li style="" class="li1">PrintFileRaw(ICAISSE,CFILE)  // this line opens the cash draw </li><li style="" class="li2"> </li><li style="" class="li1">FERASE("C:\test.txt")</li><li style="" class="li2"> </li><li style="" class="li1"> </li></ol>

PrintFileRaw()
Prints a file to a Windows printer in RAW mode. 
Syntax
PrintFileRaw( <cPrinterName>, ;
              <cFileName>   , ;
             [<cJobTitle>]    ) --> nErrorCode

Arguments
<cPrinter> 
This is a character string holding the name of the printer to use for printing. 
<cFileName> 
The file to print must be specified as a character string, including path and extension. If the path is omitted, the file is searched in the current directory. 
<cJobTitle> 
This is an optional character string which appears as print job description in the spooler. It defaults to <cFileName>. Return
The function returns 1 on success or a value less than zero on error. See the example for error codes. 
Description
Function PrintFileRaw() prints a file to a Windows printer in RAW mode. This restricts file types for printing to enhanced metafiles (EMF), ASCII text, and raw data, which includes all printer specific file types such as PostScript and PCL. The file is sent to the Windows spooler which processes the print job. The function returns zero when the file is successfully transferred to the spooler. Note that this is no guarantee for a printout. If the physical printer is out of paper, for example, the spooler reports an error to the user. This type of failure cannot be detected by PrintFileRaw(). 
Info
See also: GetPrinters(), GetDefaultPrinter(), PrinterExists(), PrinterPortToName() 
Category: Printer functions , xHarbour extensions 
Source: rtl\tprinter.c 
LIB: xhb.lib 
DLL: xhbdll.dll 

Example
// The example prints a file in RAW mode and demonstrates
// the possible return values of PrintFileRaw().

   PROCEDURE Main()
      LOCAL cPrinter := GetDefaultPrinter()
      LOCAL cFile    := "MyFile.Txt"
      LOCAL nResult  := -1
      LOCAL cMsg     := "PrintFileRaw(): "

      CLS
      IF Empty( cPrinter )
         ? "No default printer found"
         QUIT
      ENDIF

      nResult := PrintFileRaw( cPrinter, cFile, "Test for PrintFileRaw()" )

      SWITCH nResult
      CASE -1
         cMsg += "Invalid parameters passed to function" ; EXIT
      CASE -2
         cMsg += "WinAPI OpenPrinter() call failed"      ; EXIT
      CASE -3
         cMsg += "WinAPI StartDocPrinter() call failed"  ; EXIT
      CASE -4
         cMsg += "WinAPI StartPagePrinter() call failed" ; EXIT
      CASE -5
         cMsg += "WinAPI malloc() of memory failed"      ; EXIT
      CASE -6
         cMsg += "File " + cFile + " not found"          ; EXIT
      DEFAULT
         cMsg += cFile + " PRINTED OK!!!"
      END

      ? cMsg
   RETURN