PAPEL DE LA IMPRESORA URGENTE

PAPEL DE LA IMPRESORA URGENTE

Postby horacio » Tue Feb 27, 2007 2:30 pm

Estoy trabajando con w2000 y necesito emitir unas facturas con papel personalizado. Me encuentro con el siguiente problema. Si corro la aplicación con W98 puedo seleccionar el tamaño del papel y la impresora y me respeta ambas cosas. Pero con W2000 no. Aqui transcribo parte del codigo

If( lPrevista == .t. )
If( !Empty( cModelo ) )
oPrn := PrintBegin('Emisión de facturas', .F., .t., cModelo, .F. )
Else
oPrn := PrintBegin('Emisión de facturas', .F., .t.,, .F. )
End
oPrn : lPrvModal := .t.
Else
If( !Empty( cModelo ) )
Printer oPrn To cModelo
Else
Printer oPrn
End
End
Define Font oFnt Name "Arial" Size 0,-8 OF oPrn
Define Font oFnt1 Name "Arial" Size 0,-6 OF oPrn Nescapement 45 * 100
Define Font oFnt2 Name "Arial" SIZE 0,-12 BOLD OF oPrn
Define Font oFnt3 Name "Arial" Size 0,-6 OF oPrn Bold
oPrn : SetPage( DMPAPER_USER ) // DMPAPER_USER 256
Page
bla bla bla

A alguien le a sucedido lo mismo ?? Gracias por sus respuestas
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Postby Antonio Linares » Tue Feb 27, 2007 5:41 pm

Prueba con oPrinter:SetSize( nWidth, nHeight )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 46 guests