win_prn, ajuda com código
Enviado: 07 Nov 2014 10:26
Bom dia Jairo.
Grato pela ajuda.
Quanto ao função WIN_PRN, eu uso ela na substituição da WIN32PRN do xHARBOUR, porque no HARBOUR tem que trocar varias funções utilizadas para impressão por novas.
Sem a Win_prn, o metodo não é criado.
Arrumei a ordem como você me passou e vou testar para ver se para de dar o problema.
ficou assim:
Grato por enquanto, testarei com a nova ordem passando para baixo do CREATE e ver se para de evaporar as impressões.
Grato
:-Y :xau
Grato pela ajuda.
Quanto ao função WIN_PRN, eu uso ela na substituição da WIN32PRN do xHARBOUR, porque no HARBOUR tem que trocar varias funções utilizadas para impressão por novas.
Sem a Win_prn, o metodo não é criado.
Arrumei a ordem como você me passou e vou testar para ver se para de dar o problema.
ficou assim:
Código: Selecionar todos
// .....códigos
oPrinter:=Win_prn():New(cPrinter) //tem que colocar porque senão não cria o método, pode usar assim ou
//oPrinter:=Win_prn() //cria o método
//oPrinter:=New(cPrinter) //pega a escolhida
If oPrinter:create()
oPrinter:Landscape:=If(aPo=="H",.T.,.F.) //VERTICAL=.F. // HORIZONTAL=.T.
oPrinter:FormType :=1
oPrinter:Copies :=1
oPrinter:CharSet(255)
oPrinter:SetPrintQuality(1)
oPrinter:StartDoc()
oPrinter:SetFont("LUCIDA CONSOLE",12,{aIA,aIL},700,.F.,.F.)
//restante do código .....
Grato
:-Y :xau