Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Skipping Labels
Message
 
To
29/03/1999 23:11:28
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Title:
Miscellaneous
Thread ID:
00203290
Message ID:
00203982
Views:
25
Bob/John,

I'm not crazy about those two methods. A line feed may not translate as you expect when it gets to the printer, and why create a table with a blank record. My idea is...create a cursor with SQL CREATE CURSOR command that will have the same structure as the one created in the main query. Then insert several blank records (as many as needed) into the first cursor. I'm assuming you are trying to reuse sheets that weren't completely use in a previous print job. You can add a parameter to your code that accepts a numeric value, being the number of labels to skip. first be sure you understand which path the printing takes place, ie. does the form print across then down, or vice versa. I think lasers and inkjets print across then down, but I'm not positive how they react to the form's settings. After you've used the SQL INSERT to put the blank records into the cursor, perform your main query, then get the DBF() value of the results set and select the first cursor, and APPEND FROM (m.lcDbf). I've done similar things in the past, including inserting alignment records for line printer labels (simply records with all X's in the fields).

Dana

>Bob ----
>
>Two methods come to mind: Create a table with a blank record and a Label of the same type as your production labels. Do a LABEL FORM with the blank table and dummy label, then run your production stuff. Method two would be to use ??? to line feed through the first label.
>
>
>
>
>>This is a 'nice to have' if I can work it out ... and I would
>>share the code if I can get it to work.
>>
>>Can we skip the first X number of labels on a preprinted laser
>>form somehow? This would save a few bucks a day for the one
>>application I'm working on. Here's the code I'm using to generate
>>a set of mailing labels and send the results to a preview window:
>>
>>thisform.hide
>>SELECT Indivpu.ncremid, Indivpu.cpetname, Indivpu.dpickup;
>> FROM .\data\tracker!indivpu;
>> WHERE Indivpu.lprtcrem = .T.;
>> AND Indivpu.dpickup IS NOT NULL;
>> AND Indivpu.ncremid <> 0;
>> ORDER BY Indivpu.ncremid;
>> INTO CURSOR Qcrem
>>LABEL FORM .\reports\lbcrem.lbx NOCONSOLE PREVIEW
>>thisform.show
>>
>>I tried append blank into the cursor but that doesn't look
>>too promising. Any suggestions for generating blank records
>>onto the top end of the cursor?
>>
>>thanks --
>>
>>Bob Longmire
>>Hillside, IL
Where's the damned Any Key?...too late
Previous
Reply
Map
View

Click here to load this message in the networking platform