PC Toledo

... mingw32/bin/ld.exe: C:/Users/MICROV~1/AppData/Local/Temp/hbmk_8q1xoq.dir/pci10000.o:pci10000.c:(.data+0x1c8): undefined reference to `HB_FUN_WIN_PRINTERLIST'
f:/programasinstalados/hmg.3.5/mingw/bin/../lib/gcc/i686-w64-mingw32/9.3.0/../../../../i686-w64-mingw32/bin/ld.exe: C:/Users/MICROV~1/AppData ...

... undefined reference to `HB_FUN_WIN_OEMTOANSI'
/usr/bin/ld: .hbmk/linux/gcc/cheques.o:(.data.rel+0x2110): undefined reference to `HB_FUN_WIN_PRINTERLIST'
/usr/bin/ld: .hbmk/linux/gcc/cheques.o:(.data.rel+0x2150): undefined reference to `HB_FUN_WIN_PRINTERGETDEFAULT'
/usr/bin/ld: .hbmk/linux/gcc ...

... WIN_PRN().


*********************************
Function PrintWinPrn(cArq,cPrint)
*********************************
*
*
Local 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 ...

... PrintFileRaw


**********************************
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 ...

... interrompe" )
// ENDIF

RETURN lPrint

FUNCTION PrintSelect( cImpressora )

LOCAL acPrinterList, nOpc := 1, lOk, nCont

acPrinterList := Win_PrinterList()
FOR nCont = 1 TO Len( acPrinterList )
IF acPrinterList[ nCont ] == Win_PrinterGetDefault()
nOpc := nCont
EXIT
ENDIF
NEXT
// WAchoice ...

... um programa em linux, e surgiu uma dúvida, no windows utilizo gtwvg.hbc e o hbwin.hbc para utilizar funções como wvt_setpalette, wvt_setfont, win_printerlist, como faço para utilizar o mesmo .prg para compilar no linux e compilador não reclamar a falta dessas funções?
Tem algum IFDEF WINDOWS algo ...

... 27)+"(s9H"
@ nLf,2 say Chr(27)+"&d@"
nLf++
nLf++
@ nLf,5 say "Observaçoes: "+substr(observacoes,1,48)
a=49

....

cls
private aPrn := Win_PrinterList( .t., .f. )
escimpr()
If !Empty( cPrinter )
?Win_PrintFileRaw( cPrinter, "ArqPrint.Tmp", "Rel.pdf" )
Endif
set devi to scre
set printer ...

... esta função.


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

... return nil

*----------------------------------*
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 ...

... próprio Harbour.

#require "hbwin"

PROCEDURE Main()

LOCAL nPrn := 1
LOCAL cFileName := Space( 40 )
LOCAL GetList := {}

LOCAL aPrn := win_printerList()

CLS

IF Empty( aPrn )
Alert( "No printers installed - Cannot continue" )
ELSE
DO WHILE nPrn != 0
CLS
@ 0, 0 SAY "win_PrintFileRaw ...

... to `HB_FUN_SETDATE'
C:/Users/Ricardo/AppData/Local/Temp/hbmk_2g2v5c.dir/gasp40hb.o:gasp40hb.c:(.data+0x2310): undefined reference to `HB_FUN_WIN_PRINTERLIST'
C:/Users/Ricardo/AppData/Local/Temp/hbmk_2g2v5c.dir/gasp40hb.o:gasp40hb.c:(.data+0x2350): undefined reference to `HB_FUN_WIN_PRINTFILERAW'
C ...

... CLEANBLUE := 16771276
PUBLIC N_CLEANGRAY := 12632256
PUBLIC N_BLUE001 := 16777172
*
PRIVATE cUserName := Hb_GetEnv("USERNAME")
PRIVATE aPrn := Win_PrinterList()
PRIVATE oSayMsg0
PRIVATE oSayMsg1
PRIVATE oSayMsg2
PRIVATE oSayMsg3
PRIVATE oBar
PRIVATE nTempoInicio

::AppSetup()

nIconIndex := NIIF ...

... interrompe" )
// ENDIF

RETURN lPrint

FUNCTION PrintSelect( cImpressora )

LOCAL acPrinterList, nOpc := 1, lOk, nCont

acPrinterList := Win_PrinterList()
FOR nCont = 1 TO Len( acPrinterList )
IF acPrinterList[ nCont ] == Win_PrinterGetDefault()
nOpc := nCont
EXIT
ENDIF
NEXT
// WAchoice ...

... CLEANBLUE := 16771276
PUBLIC N_CLEANGRAY := 12632256
PUBLIC N_BLUE001 := 16777172
*
PRIVATE cUserName := Hb_GetEnv("USERNAME")
PRIVATE aPrn := Win_PrinterList()
PRIVATE oSayMsg0
PRIVATE oSayMsg1
PRIVATE oSayMsg2
PRIVATE oSayMsg3
PRIVATE oBar
PRIVATE nTempoInicio

::AppSetup()

nIconIndex := NIIF ...

... interrompe" )
// ENDIF

RETURN lPrint

FUNCTION PrintSelect( cImpressora )

LOCAL acPrinterList, nOpc := 1, lOk, nCont

acPrinterList := Win_PrinterList()
FOR nCont = 1 TO Len( acPrinterList )
IF acPrinterList[ nCont ] == Win_PrinterGetDefault()
nOpc := nCont
EXIT
ENDIF
NEXT
// WAchoice ...