Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Skipping Labels
Message
 
À
29/03/1999 23:11:28
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
Divers
Thread ID:
00203290
Message ID:
00203982
Vues:
24
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform