----- Original Message -----
From: tellef <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, May 10, 2001 10:34 AM
Subject: Re: Prnsetup back to default?
> Joe:
>
> I like your suggestion! Since my client is on 6.5+ at the moment,
> the 'currentprinter' does not work correctly. If I get them to
> ++ then I can use Razzak's method. But if I don't, I kinda like
> your idea!
>
> Joe:
>
> I like your suggestion! Since my client is on 6.5+ at the moment,
> the 'currentprinter' does not work correctly. If I get them to
> ++ then I can use Razzak's method. But if I don't, I kinda like
> your idea!
I USE THIS. REQUIRES SOME CODE, BUT ONCE WRITTEN, IT CAN BE PASTED
ELSEWHERE IN THE APPLICATION WHEREVER PRINTER INFO IS NEEDED. THIS CODE
ALSO REPLACES AN "Is printer ready? DIALOG BOX THAT I ALWAYS USED.
ANYHOW, IT WORKS GREAT UNTIL ++ IS READY.
1. CREATE MENU (MINE RESIDES IN EN.APX)
$MENU
PRINTMENU
POPUP
|Print|
|Printer Setup|
|Cancel|
ENDC
2.
CREATE A TABLE HOLDING PRINTER NAMES. (WINFAX, EPSON STYLUS PHOTO 1270,
HP DESKJET, ETC........)
MINE IS CALLED PRINTINFO. I ALSO PUT THE DEFAULT PRINTER AS THE FIRST ROW
IN THE TABLE SO THAT THE FOLLOWING SELECT COMMAND ALWAYS SELECTS THE
DEFAULT.
SEL PRINTINFO INTO vprinter FROM PRINTINFO WHE LIM = 1
LABEL STCHREP
SET V vmess = ('Printer:'& .vprinter)
CHOOSE vprint FROM PRINTMENU IN EN.APX AT 25,50 CAPTION .vmess LINE 3
IF vprint = '[ESC]' OR vprint = 'CANCEL' THEN
DIA 'Cancel procedure?' vyn v0 NO AT 25,50 CAPTION ' '
IF vyn = 'NO' THEN
GO STCHREP
ELSE
BREAK *(OR GOTO ,OR WHATEVER TO CANCEL)
ENDIF
ENDIF
IF vprint = 'PRINTER SETUP' THEN
CHOOSE vprinter FROM #VAL FOR PRINTINFO FROM PRINTINFO AT
25,50 CAPTION ' '
PRNSETUP .vprinter
GOTO STCHREP
ENDIF
OUT PRINTER
SET NULL ' '
PRI WHATEVERREPORT
OUT SCR
SET NULL -0-
