ERROR WITH REPORT when no Printers are instaled

[mgsoft]

Hi,

This is the error:

Descripcion del Error: Error BASE/1005 No existe la variable de instancia: NTITLEUPLINE
Args:
[ 1] = U
[ 2] = N 1

Stack Calls
===========
Called from: => _NTITLEUPLINE(0)
Called from: c:\misoft\PROGRAMAS\Tpv\ARTICULO.PRG => LISTARARTICULOS(1241)


Thanks

[James Bott]

I had the code below in my notes. Perhaps it will help.

James

Code: Select all  Expand view

// The next few lines automate protection from a GPF if printer not available...
// Author: Roger Seiler
// Date: 11/07/08


hDC  := GetPrintDefault( GetActiveWindow() )
SysRefresh()

IF hDC = 0 // Handle rare case where computer has no printer.
   cParam := "X"   // (Previously, this param had to be manually entered when
ENDIF              // launching the app.)

IF EMPTY(cParam) .OR. cParam # "X"
                  // The following may cause a crash if the workstation's
                  // default network printer is unavailable...
   cOldPrinter := PrnGetName()
ELSE // cParam = "X"...
   MsgInfo("To correct a problem with default printer, on the "+CRLF+;
           "next dialog box, select the printer you want to use.","Fix printer selection...")
   PrinterSetup()
   SysRefresh()
   cOldPrinter := PrnGetName()
ENDIF