Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Result from Report Form Printer Prompt
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 6 SP5
OS:
Windows XP
Divers
Thread ID:
01470972
Message ID:
01529148
Vues:
35
>That should work (never tested though :o)))
>Instead of
>
>SET PRINTER TO (lcSelectedPrinter)
>
>use
>
>SET PRINTER TO NAME (lcSelectedPrinter)
>
This is what I'm testing, but yet it doesn't seem to work:
scan
   lcLayout = layout
   if reccount('csrPrint') > 1
      = messagebox('Ready to print '+transform(lblcount)+' labels using layout '+alltrim(justfname(trim(lcLayout)))+'.'+chr(13) + chr(13) + ;
         'Select the printer to use...',64,'Ready to print')
   endif
   select r_invent
   lcPrinter = getprinter()
   if not empty(m.lcPrinter)
      set printer to name (m.lcPrinter)
      scan for layout==m.lcLayout
         report form (lcLayout)  to printer  noconsole nodialog

      endscan
   endif
   select csrPrint
endscan
I'm testing using PDF printer (don't have the real printer) and I get one job only and both selected labels are printed into one file. What is wrong here?

Thanks in advance.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform