Problema de impresion

[mastintin]

Tengo un problema que no consigo solucionar .
Tengo una impresora de papel continuo que debe imprimir en tamaño Carta .
Si la pongo asi :

PRINT oPrn NAME cTitle TO "Epson"
oPrn:SetPage(1)

funciona sin problemas pero si cambio :

PRINT oPrn NAME cTitle FROM USER
oPrn:SetPage(1)

aunque escoja la misma impresora esta me imprime en formato A4.

Suena a bug de la clase printer que no asigna correctamente SetPage() .
Alguien lo ha resuelto ?
Saludos a Todos.

[mastintin]

Me auto contesto por si le vale a alguien .
De momento lo he solucionado asi . No es correcto pues pierdo los ajuste que realice el el dialogo de impresoras , pero en este caso no me importa pues solo quiero eleguir la impresora y no el resto de ajustes.

Code: Select all  Expand view

PRINT oPrn NAME cTitle FROM USER    

            WriteProfString( "windows", "device",oPrn:GetModel() + "," + oPrn:GetDriver() + "," + oPrn:GetPort() )
            SysRefresh()
            PrinterInit()
            oPrn:hDC := GetPrintDefault( GetActiveWindow() ) //Se vc estiver dentro do PREVIEW