win_prn, ajuda com código

[leandrolinauer]

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:

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 por enquanto, testarei com a nova ordem passando para baixo do CREATE e ver se para de evaporar as impressões.
Grato
:-Y :xau

[Jairo Maia]

Olá Leandro,

Sem a Win_prn, o metodo não é criado.

Verdade. Esqueci de alterar a linha do método :New().

Arrumei a ordem como você me passou e vou testar para ver se para de dar o problema.

Ok. Vamos ver se resolve, porque aparentemente não há nada errado com a função.