PAPEL DE LA IMPRESORA URGENTE

[horacio]

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

[Antonio Linares]

Prueba con oPrinter:SetSize( nWidth, nHeight )