/*
//
// Fecha : 22 de enero del 2010
// Autor : William Morales
// Módulo : Clase para imprimir documentos directos a la impresora de windows
// Nombre : wtraw.prg
//
*/
#include <fivewin.ch>
#xcommand @ <nRow>, <nCol> SAYDOS <Text> => ;
DevPos( <nRow>,<nCol>); DevOut(<Text>)
CLASS TDirectPrint
DATA cIncos AS CHARACTER INIT "TDirectPrint v 0.1"
DATA cBuild AS CHARACTER INIT "20100122"
DATA cCredits AS CHARACTER INIT "Autor: William Morales" + CRLF + ;
"wmormar@hotmail.com" + CRLF + CRLF + ;
"Tester: " + CRLF + ;
" Willi Quintana" + CRLF + ;
" Oscar Chacon (costa rica)"
DATA cMsg AS CHARACTER INIT ""
DATA cFile AS CHARACTER INIT ""
DATA cContent AS CHARACTER INIT ""
DATA cPrinter AS CHARACTER INIT GetDefaultPrinter()
DATA cDocument AS CHARACTER INIT "Imprimiendo documento : Powered by INCOS"
DATA cLogo AS CHARACTER INIT ""
DATA nRow AS NUMERIC INIT 0
DATA nCol AS NUMERIC INIT 0
DATA nCopy AS NUMERIC INIT 1
DATA nHeight AS NUMERIC INIT 20
DATA nWidth AS NUMERIC INIT 35
DATA lDo AS LOGICAL INIT .f.
METHOD new( cPrinter ) CONSTRUCTOR
METHOD printerdefault() INLINE ::cPrinter := GetDefaultPrinter()
METHOD setlpt( nPort )
METHOD jump( nJump )
METHOD esc( cText )
METHOD say( nRow, nCol, cText )
METHOD opencash( cPrinter, nCash )
METHOD sendtoprinter()
METHOD checkport( nPort ) INLINE PrintReady( nPort )
METHOD eject() INLINE ::esc( Chr(12) )
METHOD beginprint() INLINE (::esc( Chr(27) + Chr(64) ), ;
::esc( Chr(27) + Chr(120), Chr( 0 ) ) ;
)
METHOD endprint() INLINE (::esc( Chr(27) + Chr(18) ), ;
::esc( Chr(27) + Chr(50) ), ;
::esc( Chr(27) + Chr(72) ), ;
::esc( Chr(27) + Chr(80) ) ;
)
METHOD bold( lOnOff ) INLINE IF( lOnOff, ::esc( Chr(27) + Chr(71) ), ;
::esc( Chr(27) + Chr(72) ) ;
)
METHOD condensed() INLINE ::esc( Chr(27) + Chr(15) )
METHOD normal() INLINE ::esc( Chr(27) + Chr(18) )
METHOD expansive( lOnOff ) INLINE IF( lOnOff, ::esc( Chr(27) + Chr(14) ), ;
::esc( Chr(27) + Chr(20) ) ;
)
METHOD superscript( lOnOff ) INLINE IF( lOnOff, ::esc( Chr(27) + Chr(83) + Chr(48) ), ;
::esc( Chr(27) + Chr(84) ) ;
)
METHOD subscript( lOnOff ) INLINE IF( lOnOff, ::esc( Chr(27) + Chr(83) + Chr(49) ), ;
::esc( Chr(27) + Chr(84) ) ;
)
METHOD underline( lOnOff ) INLINE IF( lOnOff, ::esc( Chr(27) + Chr(45) + Chr(49) ), ;
::esc( Chr(27) + Chr(45) + Chr(40) ) ;
)
METHOD prnfile( cFile )
METHOD logo( cFile, nHeight, nWidth ) INLINE (::cLogo := cFile, ::nHeight := nHeight, ;
::nWidth := nWidth )
METHOD printlogo()
ENDCLASS
/**************************************************************************************/
METHOD new( cPrinter )
LOCAL nFile := 1
DEFAULT cPrinter := GetDefaultPrinter()
::cPrinter := cPrinter
::lDo := .t.
::cMsg := ::cIncos + " - " + ::cBuild
::cContent := ""
::nCol := 0
::nRow := 0
WHILE .t.
::cFile := "wmprn" + PadL( nFile++, 3, "0" ) + ".gcj"
IF !File( ::cFile )
EXIT
ENDIF
sysrefresh()
ENDDO
SET PRINTER TO (::cFile)
SET DEVICE TO PRINT
RETURN Self
/**************************************************************************************/
METHOD setlpt( nPort )
LOCAL cPort := ""
DEFAULT nPort := 1
::lDo := .t.
cPort := PrinterPortToName( "LPT" + WCStr(nPort) + ":" )
IF Empty( cPort )
MSGINFO( "No hay impresora en el puerto seleccionado...", ::cMsg )
::lDo := .f.
RETURN NIL
ENDIF
::cPrinter := cPort
RETURN NIL
/**************************************************************************************/
METHOD jump( nJump )
LOCAL x := 0
DEFAULT nJump := 1
FOR x := 1 TO nJump
@ ::nRow, 00 SAYDOS ""
::nRow += 1
NEXT
::nCol := 00
RETURN NIL
/**************************************************************************************/
METHOD esc( cText )
@ ::nRow++, 00 SAYDOS cText
::nCol := Len(cText) + 1
RETURN NIL
/**************************************************************************************/
METHOD say( nRow, nCol, cText )
IF nRow < ::nRow
nRow := ::nRow
ENDIF
IF nCol < ::nCol
nCol := ::nCol
ENDIF
::nRow := nRow
::nCol := nCol
@ ::nRow++, ::nCol SAYDOS cText
::nCol := ::nCol + Len(cText) + 1
RETURN NIL
/**************************************************************************************/
METHOD opencash( cPrinter, nCash )
LOCAL cEscape := ""
DEFAULT cPrinter := "epson"
DEFAULT nCash := 0
cEscape := Chr( 27 ) + Chr( 112 ) + WCStr( nCash ) + Chr(40) + Chr( 108 )
IF Lower( cPrinter ) == "start"
cEscape := Chr( 27 ) + Chr( 80 )
ENDIF
@ ::nRow++, 00 SAYDOS cEscape
::nCol := Len(cEscape) + 1
RETURN NIL
/**************************************************************************************/
METHOD sendtoprinter( lDelete )
LOCAL x := 1
LOCAL nRet := 0
LOCAL cMsg := ""
LOCAL lShow := .f.
DEFAULT lDelete := .t.
SET DEVICE TO SCREEN
SET PRINTER TO
IF ::nCopy < 1
::nCopy := 1
ENDIF
FOR x := 1 TO ::nCopy
::printlogo()
nRet := PrintFileRaw( ::cPrinter, ::cFile, ::cDocument )
cMsg += "Copy " + WCStr( x ) + CRLF
IF nRet # 1
lShow := .t.
ENDIF
SWITCH nRet
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 += "PRINTED OK!!!"
END
cMsg += CRLF + CRLF
NEXT
IF lDelete
FErase( ::cFile )
ENDIF
IF lShow
MSGINFO( cMsg, ::cMsg )
ENDIF
RETURN NIL
/**************************************************************************************/
METHOD prnfile( cFile, lDeletepost )
DEFAULT lDeletepost := .f.
::cFile := cFile
::sendtoprinter( lDeletepost )
RETURN NIL
/**************************************************************************************/
METHOD printlogo()
LOCAL cEmf := ""
LOCAL oImg := NIL
IF Empty( ::cLogo )
RETURN NIL
ENDIF
IF !File( ::cLogo )
MSGINFO( "Archivo logo no existe, verifique...", ::cMsg )
RETURN NIL
ENDIF
//oImg := TImage()
//oImg:LoadImage( , ::cLogo )
//wgrabaemf( oImg:hDC, "wmlogo.xxx" )
//PrintFileRaw( ::cPrinter, ::cLogo, ::cDocument )
RETURN NIL
/**************************************************************************************/
Posted: Mon Feb 11, 2013 5:00 pm