PC Toledo

... seria como se a "classe" Win_Prn() não fosse uma "Classe".


*************
function main
*************

local oPrinter, cPrinter := Win_PrinterGetDefault()

cls

? cPrinter

oPrinter := Win_Prn():New( cPrinter )

? hb_IsObject( oPrinter )

oPrinter := NIL

? hb_IsObject( oPrinter ...

... a impressão para um arquivo
SET PRINTER TO arquivo.txt

// código do relatório

// finalizar o relatório
SET PRINTER TO

// enviar para a impressora
win_PrintFileRaw(win_PrinterGetDefault(), "arquivo.txt")

// remover arquivo temporário
FErase("arquivo.txt")


Precisa incluir hbwin.hbc na compilação.

... hb_SetCodepage()
hbmk2: Dica: Adicionar op‡Æo 'hbwin.hbc' faltando nas fun‡äes:
win_PrintFileRaw(), win_printerStatus(), win_Prn(),
win_printerGetDefault(), win_OEMToANSI(), wapi_MessageBox(),
wapi_DestroyMenu(), wapi_GetActiveWindow(), wapi_SetMenu(),
win_printerList(), win_ANSIToOEM ...

... undefined reference to `HB_FUN_HWG_CLEARKEYBOARD'
/usr/bin/ld: .hbmk/linux/gcc/balcao.o:(.data.rel+0x5bb0): undefined reference to `HB_FUN_WIN_PRINTERGETDEFAULT'
/usr/bin/ld: .hbmk/linux/gcc/balcao.o:(.data.rel+0x6130): undefined reference to `HB_FUN_WIN_SHELLNOTIFYICON'
/usr/bin/ld: .hbmk/linux/gcc ...

... oPrn, aPrn:=WIN_PRINTERLIST(), n := 0
if empty(aPrn)
alert('Não há impressoras instaladas')
return .f.
endif
If cPrint == Nil
cPrint := win_PrinterGetDefault()
EndIf

oPrn := win_prn():New(cPrint)
oPrn : LandScape := .F.
oPrn : FormType := WIN_DMPAPER_A4
oPrn : Copies := 1
oPrn : CharSet(255 ...

... Function Imprime(cArq,cPrint,cTit)
**********************************
*
*
Local oPrn, aPrn:=WIN_PRINTERLIST()
hb_default(@cPrint,win_PrinterGetDefault())
hb_default(@cTit,"PEDIDO")

If Empty(cArq)
alert('Informe algo p/ imprimir.')
Return .F.
EndIf
If empty(aPrn)
alert('Não há ...

... CP1252"
VAR nDrawMode INIT PDFCLASS_DRAWMODE_ROWCOL
VAR lDrawZebrado INIT .F.
VAR cAppEmpresaNome INIT ""
VAR cDefaultPrinter INIT WIN_PRINTERGETDEFAULT()

METHOD AddPage()
METHOD RowToPDFRow( nValue )
METHOD ColToPDFCol( nValue )
METHOD MaxRow()
METHOD MaxCol()
METHOD Row( nAddRows ...

... pctoledo.org/forum/viewtopic.php?f=4&t=18709

Leia esse tópico, pq tem provavelmente seu problema nele resolvido.


cDefaultPrinter := WIN_PRINTERGETDEFAULT()
WIN_PRINTFILERAW( cDefaultPrinter, Prnfile.txt )


mas esse não consigo dá erro, É segredo o erro ? cadê para a gente ver ...

... ATUALIZA_CREDITO_CLIENTE( CLIENTES_ID )
METHOD RECEBER_MOVIMENTO_BAIXA( )

PROTECTED:

VAR nFormato INIT 1
VAR cDefaultPrinter INIT WIN_PRINTERGETDEFAULT()
VAR cReportOption
VAR nPrinterType
VAR nCLIENTES_ID INIT 0
VAR dPERINI INIT M->DAT_HOJE-30
VAR dPERFIN INIT M->DAT_HOJE
VAR ...

... aPrn:=WIN_PRINTERLIST(), n := 0
if empty(aPrn)
hwg_Msginfo('Não há impressoras instaladas')
return .f.
endif
If cPrint == Nil
cPrint := win_PrinterGetDefault()
EndIf

oPrn := win_prn():New(cPrint)
oPrn : LandScape := .F.
oPrn : FormType := WIN_DMPAPER_A4
oPrn : Copies := 1
oPrn : CharSet(255 ...

... Function Imprime(cArq,cPrint,cTit)
*----------------------------------*
Local oPrn, aPrn:=WIN_PRINTERLIST()
hb_default(@cPrint,win_PrinterGetDefault())
hb_default(@cTit,"PEDIDO")
If Empty(cArq)
alert('Informe algo p/ imprimir.')
Return .F.
EndIf
*
If empty(aPrn)
alert('Informe ...

... mudo manualmente a impressora a ser impressa, ele continua tentando imprimir no Foxit.
Por favor, verifiquem se fiz algo errado:

cPrn := Win_PrinterGetDefault()

if at("EPSON",upper(cPrn))=0
cPrn="EPSON WF-2860 Series"
endif

IF !( EMPTY( cPrn ) )
wapi_ShellExecute( 0, "print",cNomePDF ...

... FUN_SECONDSSLEEP'
C:/Users/Ricardo/AppData/Local/Temp/hbmk_2g2v5c.dir/gasp40hb.o:gasp40hb.c:(.data+0x4150): undefined reference to `HB_FUN_WIN_PRINTERGETDEFAULT'
C:/Users/Ricardo/AppData/Local/Temp/hbmk_2g2v5c.dir/gasp40hb.o:gasp40hb.c:(.data+0x4190): undefined reference to `HB_FUN_PREPIMP'
C:/Users ...

... eu escolher o local onde salvará o pdf.

Fiz a seguinte modificação na rotina, para tentar forçar a imprimir na impressora Epson:

cPrn := Win_PrinterGetDefault()
if at("EPSON",upper(cPrn))=0
cPrn="EPSON WF-2860 Series"
endif


Achei que isso resolveria, mas não resolveu. Ele continua tentando ...

Amiguinhos,

cjp
Veja que cPrn := Win_PrinterGetDefault() pega o nome da impressora padrão.

Basta colocar o nome da impressora como aparece na lista de impressoras do seu Windows, exemplo: cPrn := "Epson LX 310"