Converted from v3.1to Lotus v9.7 and cannot print 1

[wendymason]

I have been using LOTUS 1-2-3 v3.1 for DOS for many years and set up a macro driven application. I have had to upgrade to SmartSuite v9.7 and am having problems printing using the same macros. The printer is just throwing out blank pages.
This is the print macro:

{GOTO}ID~
{WINDOWSOFF}{PANELOFF}
/reID~
{WINDOWSON}
/wgpd
{GETLABEL "ENTER SURNAME IN UPPER CASE ONLY: ",ID}~
{GETLABEL "When the printer is ready press [ENTER] to proceed ",READY}~
/pprINVOICE~
oml10~
mr132~
mt0~
mb0~
qagcaq~
/reID~
/wgpe
{PANELON}
{QUIT}

You'd make this gal very happy if you can sort out the problem. Thanks

Wendy

 

[diogenes10]

Looking at an instant ref for dos ver 2.2 and / menus on 9.5, I would guess the first thing you need to do is sit down and carefully analyse slash menu paths from the existing macro and check each one in your new version.
For example, I dont think the /wgpd and /wgpe paths exist anymore.

 

[crazybird]

Here's my attempt. You'll have to experiment with the margin settings which are now in inches, not characters:

{EDIT-GOTO ID}
{WINDOWSOFF}{PANELOFF}
{BLANK ID}
{WINDOWSON}
/wgpd
{GET-LABEL "Enter Surname: ",ID}
{LET ID;@UPPER(ID)}
{ALERT "When the printer is ready select [OK] to proceed ",,"note",READY}
{SET "print-range";"invoice"}
{SET "Print-Margin-Left";0.5}
{SET "Print-Margin-Right";0.5}
{SET "Print-Margin-Top";.25}
{SET "Print-Margin-Bottom";.25}
{SET "Print-Orientation";"portrait"}
{PRINT}
{BLANK id}
/wgpe
{PANELON}
{QUIT}

 

[wendymason]

Thanks crazybird, that solved the problem. Can you take a look at this:
{IF SUBTOTAL=0}{BEEP}{QUIT}
{GOTO}FIRSTNAME~
{WINDOWSOFF}{PANELOFF}
/wgpd
/rvRECCOUNT~LOOPCOUNT~
{ALERT "When the printer is ready press [OK] to proceed ",,"note",READY}~
REPEAT /rncSURNAME~~
/cSURNAME~ID~
{GOTO}SURNAME~
/rndSURNAME~~
{DOWN}
{SET "print-range";"invoice"}
{SET "print-margin-left";0.5}
{SET "print-margin-right";0.5}
{SET "print-margin-top";0.5}
{SET "print-margin-bottom";0.5}
{SET "print-orientation";"portrait"}
{PRINT}
{WAIT @NOW+@TIME(0,0,5)}
{LET LOOPCOUNT,LOOPCOUNT-1}~
{IF LOOPCOUNT>0}{BRANCH REPEAT}
/wgpe
{WINDOWSON}{PANELON}
{QUIT}

This macro should print out a series of invoices, however, the first invoice does not print out at all and the subsequent invoices are only partially printed. Can you help?

Thanks

 

[crazybird]

Here's my macro make-over:

Subtotal 4

\Z {IF Subtotal=0}{BEEP}{QUIT}
{WINDOWSOFF}{PANELOFF}
/wgpd
{ALERT "When the printer is ready press [OK] to proceed ",,"note",READY}
{SET "print-range";"invoice"}
{SET "print-margin-left";0.5}
{SET "print-margin-right";0.5}
{SET "print-margin-top";0.5}
{SET "print-margin-bottom";0.5}
{SET "print-orientation";"portrait"}
{FOR LoopCount;0;@rows(Names)-1;1;Loop}
/wgpe


LoopCount 4
RecCount


Loop {LET ID;@index(names;0;LoopCount)}
{PRINT}
{WAIT @now+@time(0,0,5)}


Names: Jim
Mary
Russ
Alice