PC Toledo

Código: Selecionar todos

#define SALTO_PAGINA chr(12)

********************************
FUNCTION Imprime( cArq, tamrel ) // arquivo e tamanho da linha
********************************
   local cTexto, nLinhas, nA, cLinha, oPrinter := win32prn()

   oPrinter:New( GetDefaultPrinter() )
   oPrinter:Landscape := .F.
   oPrinter:FormType  := 9
   oPrinter:Copies    := 1

   if !oPrinter:Create()
      Alert("Não foi possível criar a impressão")
      return NIL
   endif
   if ! oPrinter:StartDoc("Impressao xharbour")
      Alert("StartDoc() - falhou ")
      return NIL
   endif
   oPrinter:SetDefaultFont()
   if tamrel > 80
      oPrinter:setfont(,,17,,,,255)
   else
      oPrinter:setfont(,,11,,,,255)
   endif

   oPrinter:TextOut( space(tamrel), .T. )
   cTexto  := memoread( cArq )
   nLinhas := mlcount( cTexto, tamrel, 1, .F. )
   for nA := 1 to nLinhas
      cLinha := memoline( cTexto, tamrel, nA, 1, .F. )
      if left( alltrim( cLinha ), 1 ) == SALTO_PAGINA
         oPrinter:NewPage()
      else
         oPrinter:TextOut( cLinha, .T. )
      endif
   next
   oPrinter:EndDoc()
   oPrinter:Destroy()
RETURN NIL

Código: Selecionar todos

   prn := GetPrinterS(.T.)
   for i=1 to len(prn)
       ? prn[i,1]
       ?? prn[i,2]
       l++
   next

Código: Selecionar todos

#include "box.ch"
#include "inkey.ch"

************* 
FUNC CHAMAIMP 
************* 
LOCAL aINCCLI := savescreen( 08,09,21,63 ) 
Private nPrn    := 1 
Private aPrn    := GetPrinters() // Detecta impressoras instaladas
PARA TAM    // S=A IMPRESSAO EM 136 COL. N=A IMPRESSAO EM 79COL. 
If Empty(aPrn) 
   OBRIGA1() 
   Return 
else 
   Hb_Shadow(08,09,19,61)
   @ 08,09,19,61 box B_DOUBLE + space(1) colo "n+/bg" 
   @ 09,26 say "Selecione a impressora" colo "w+/bg"
   @ 18,30 say "ESC - VOLTA" colo "n+/bg"
   SETCOLOR( "w/bg,n/gr*,,,n*/w" ) 
   nPrn:= ACHOICE(11,11,15,59,aPrn,.T.,,nPrn)  // LISTA DE IMPRESSORAS 
EndIf 
if lastkey() = K_ESC
   Restscreen(08,09,21,63,aINCCLI) 
   RETURN NIL 
endif   
IF TAM="S" 
   IF !EMPTY(nPrn) 
      Imprime("Dizimo.imp",136,aPrn[nPrn]) 
   ENDIF 
ELSE 
   IF !EMPTY(nPrn) 
      Imprime("Dizimo.imp",80,aPrn[nPrn]) 
   ENDIF 
ENDIF 
Restscreen(08,09,21,63,aINCCLI) 
RETURN NIL 

**************************** 
STATIC FUNC Imprime( cArq, tamrel ,cPrinter ) 
**************************** 
local cTexto, nLinhas, nA, cLinha    // oPrinter := win32prn():New(cPrinter) 
local oPrinter := win32prn():New(cPrinter),oBmp

oBmp:= Win32BMP():new() 
oPrinter:Landscape := .F. 
oPrinter:FormType  := 9 
oPrinter:Copies    := 1 
oPrinter:SetPrintQuality(-1) //-1Rascunho //-2 Mínima //-3 Média //-4 Alta 

IF !oPrinter:Create() 
   OBRIGA2() 
   return NIL 
endif 

IF ! oPrinter:StartDoc("Controle de D¡zimo Paroquial") // MENSAGEM NO SPOOL 
   OBRIGA2()  
   return NIL 
endif 

oPrinter:SetDefaultFont() 
if tamrel > 80 
   oPrinter:setfont('Courier New',,17,,,,255) 
else 
   oPrinter:setfont('Courier New',,11,,,,255) 
endif 

oPrinter:TextOut( space(tamrel), .T. ) 
cTexto  := memoread( cArq ) 
nLinhas := mlcount( cTexto, tamrel, 1, .F. ) 
nConta  := 0 

for nA := 1 to nLinhas 
    IF oBmp:loadFile("DIZIMO.BMP") 
       oBmp:Draw( oPrinter, { 50, 0, 147, 92 } ) 
    ENDIF 
   cLinha := memoline( cTexto, tamrel, nA, 1, .F. ) 
   IF nCONTA=66  //QUANDO CHEGAR EM 66 UMA NOVA PAGINA 
      oPrinter:NewPage() 
      nConta  := 0 
   else 
      oPrinter:TextOut( cLinha, .T. ) 
   endif 
   nConta=nConta+1 
next 
oPrinter:EndDoc() 
oBMP:Destroy()
oPrinter:Destroy() 
RETURN NIL 

**************************************************** 
FUNC OBRIGA1 
Private rTela  := Savescreen(07,00,19,79) 
wvt_messagebox("Nao Foi Possivel achar Nenhuma Impressora Instalada, Favor Verificar a Impressora !!!","ATENCAO !!!",48) 
**************************************************** 
FUNC OBRIGA2 
Private rTela  := Savescreen(07,00,19,79) 
wvt_messagebox("Problema ao Imprimir....Favor Verificar a Impressora "+ aPrn[nPrn] ,"ATENCAO !!!",48) 
****************************************************