Error BASE/1605

[Loren]

Compañeros, buenos días:

Tengo un aplicativo que aleatoriamente me genera el siguiente error:

Error BASE/1605
Invalid self: NEW
Args:
[ 1] = O Object
[ 2] = U


Llamadas al Stack:
___________________________________________________

Llamado desde TREPORT:NEW(0)
Llamado desde RPTBEGIN(0)
Llamado desde LISTICK(286)

El código listick, en la línea 286 es el siguiente:

Code: Select all  Expand view

    report informe preview title 'Listado de Ventas del TPV con tickets emitidos','Periodo: Del '+dtoc(desde)+' al '+dtoc(hasta) left HEADER alltrim(nempresa),' ' center pen open1 footer 'Fecha del listado: '+dtoc(date()) font letra1, ole caption 'Listado de ventas del TPV'
 

¿Cual puede ser el origen del error?
Mil gracias.
Un saludo.
LORENZO

[karinha]

Holá, verifique el METHOD NEW() de REPORT.PRG

viewtopic.php?f=3&t=16938

Salu2.

[Loren]

Creo que el problema proviene al quedarse Windows sin "impresora predeterminada" (hay varias instaladas pero ninguna predeterminada).

Tengo que ver por qué Windows se queda sin "impresora predeterminada". Mi programa trabaja con 2 impresoras (ticket y multifuncion laser).
Cuando imprimo por ticket hago:

Code: Select all  Expand view

PRINT oPrn NAME "ticket" to cTicket
...
...
ENDPRINT
SetPrintDefault(alltrim(empresa->impresora)) && cambiando la impresora por defecto a la seleccionada por el usuario   && visto en: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24988&hilit=SETPRINTDEFAULT
SysRefresh()
PrinterInit()

... pero ha veces (NO siempre) cuando intento imprimir a través de la laser multifunción me genera este error porque Windows NO tiene impresora predeterminada.

¿Como lo haceis vosotros?
Mil gracias.
LORENZO

[karinha]

Hola, espero que sirva:

viewtopic.php?f=6&t=28059

salu2.