PC Toledo

win_PrintFileRaw
Function Main
clear
sFile := 'c:\temp\file_to_print.prn'
Aprn = GetPrinters(.t.)
prin := {}
for i = 1 to len(aprn)
aadd(prin,aprn[i,1])
next

op = Achoice(5,5,08,60,prin)

clear
@ 5,5 say aprn[op,1]
@ 5,30 say aprn[op,2]

Set Device To Print
Set Print On
Set Print To sFile

@ 1,1 ...

... a forma correta de imprimir diretamente pra impressora matricial no harbour ? Estou testando o seguinte código:

Function Main
clear
Aprn = GetPrinters(.t.)
prin := {}
for i = 1 to len(aprn)
aadd(prin,aprn[i,1])
next

op = Achoice(5,5,08,60,prin)

clear
@ 5,5 say aprn[op,1]
@ 5,30 say aprn[op ...

Pessoal tem como saber se uma impressora aceita o arquivo no modo raw ?
No caso saber se é matricial.
GETPRINTERS(.t.) me da o nome, porta, mas nao consigo saber se é raw

... hb_gtinfo( HB_GTI_FONTWIDTH, 36 )


para impressora


* Se nao informou a impressora no parametro pega a primeira da lista
if impressora=NIL
a=Getprinters()
impressora=a[1]
endif

oJob = win_prn():New(impressora)
oJob:Create()
oJob:Landscape:= .F.
oJob:SetPrintQuality(-1)
oJob:Copies:= 1
oJob ...

... external '_HB_FUN_GETDEFAULTPRINTER' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_GETPRINTERS' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_CREATEOBJECT' referenced from X ...

... external '_HB_FUN_GETDEFAULTPRINTER' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_GETPRINTERS' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_CREATEOBJECT' referenced from X ...

... external '_HB_FUN_GETDEFAULTPRINTER' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_GETPRINTERS' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_CREATEOBJECT' referenced from X ...

... PrintWinPrn("Recibo.txt", IMPRESSORA)
// ou
// PrintWinPrn( cArq , IMPRESSORA)

Function PrintWinPrn( cArq, cPrint )
Local oPrn, aPrn := GetPrinters(), n := 0

oPrn := Win_Prn():New(cPrint)
oPrn :Copies := 1
oPrn :CharSet(155)
oPrn :SetFont( "Lucida Console", 8, { 3, -50 } )
*oPrn:SetFont ...

... se esse exemplo ajuda:

Function Main()
Local aPrinters, cPrinter, nPrn
Local cFilePrint := "SeuArquivo.Txt"

Clear Screen

aPrinters := GetPrinters()

nPrn := AChoice( 12, 11, 16, 69, aPrinters, .T. )

If nPrn != 0

cPrinter := aPrinters[ nPrn ]

Hb_Alert( "Imprimir em:;;" + cPrinter ...

... linhas.

Se você está compilando com o Harbour, seria interessante ver:

Clique nestas tag para ver os tópicos que discute sobre estas funções: GetPrinters PrintFileRaw GetDefaultPrinter

GetPrinters = cria uma array (matriz) com as impressoras instaladas no Windows

PrintFileRaw = imprime um ...

... alguem sabe onde eu errei ?? quando mando no NODOSIMP mostra certo ...

FUNCTION SELECT_PRINT(cARQTXT)

LOCAL nPrn:=1
LOCAL aPrn:= GetPrinters()
SETMODE(25,80)
CLS

IF EMPTY(cARQTXT)
Alert("Obrigatorio informar o arquivo")
quit
ENDIF

IF EMPTY(aPrn)
aOptions := { "SIM", "NAO ...

... nenhuma impressora como padrao."
case GetPrintDefault()<>0
// Bloco que perfaz uma busca das impressoras instalados no sistema
//aPrinter := GetPrinters()
//for i = 1 to len(aPrinter)
// cPrinter := aPrinter[i]
// cPort := substr(cPrinter,at(",",cPrinter)+1,20)
// if MsgYesNO( "Colocar ...

... cToolTip := OemToAnsi( "Verifique o Status da(s) Sua(s) Impressora(s) Inclusive Virtual" )

Function STATUS_DA_IMPRESSORA()

aArray := GetPrinters( .T. )

If Empty( aArray )

Alert( "Nenhuma impressora Instalada", "Atencao" )

Return Nil

Endif

for i = 1 to len(aArray)

cPrinterName ...

... Txt", "Impressao Teste" ) // imprime

EndIf

Return Nil


Func MyPrinters()
Local i, nPrn, oPrn, nMaxLen := 0, aPNomes := {}
Local aPrn := GetPrinters()

If Empty( aPrn )
Alert( "Nenhuma impressora Instalada" )
Return Nil
Endif

For i=1 To Len( aPrn )
AaDd( aPNomes , aPrn[i,1] )
nMaxLen ...

... PrintWinPrn( PRELATO , aPrn[ nPrn ] )
Endif
EndDo

Clear Screen

eturn Nil

Function PrintWinPrn( cArq, cPrint )
Local oPrn, aPrn := GetPrinters(), n := 0

oPrn := Win_Prn():New(cPrint)
oPrn : LandScape := .F.
oPrn : FormType := FORM_A4
oPrn :Copies := 1
oPrn :CharSet(255)
oPrn ...