Set a catch .. End catch to catch your Errorlog in printagreement and also in your printlabel procedures Koen
Op vrijdag 12 september 2014 heeft Frank Cazabon <[email protected]> het volgende geschreven: > Hi, > > I have an old system written in VFP 9 (started in VFP 6 I think) that has > been in use every work day for the last 12 years or so doing 500 to 600 > transactions a day. Half of those transactions involve automatically > printing a label when a record gets saved. The label gets printed on a Dymo > LabelWriter. > > Within the last few weeks the client has been complaining that sometimes > the label is not automatically being printed (most of the time it works). > They then have to manually print it and when they do it manually it works. > This apparently is occurring on any of their 11 workstations. When I check > the print queues of all the printers on the PC, none have any documents > pending so it looks like the print job has disappeared. Another site with > 6 workstations has not complained about the problem and both sites are > running the same version of my application. > > In my form's save code, after a successful save I do this: > > IF .GenerateMemoNumber() > .PrintAgreement() > .PrintLabel() > ENDIF > > The agreement always gets printed out. > > This is my code in the PrintLabel method: > > LOCAL lcCurrentPrinter > lcCurrentPrinter = SET('PRINTER',2) > > LOCAL luValue > luValue = 'Dymo LabelWriter EL60' > > IF TYPE('oApp') = 'O' AND !ISNULL('oApp') > luValue = oApp.GetAppInfo('LabelPrinter') > > * if the preference does not exist create it > IF ISNULL(luValue) > oApp.SetAppInfo('LabelPrinter', 'C', 'Dymo LabelWriter EL60') > ENDIF > > luValue = ALLTRIM(oApp.GetAppInfo('LabelPrinter')) > ENDIF > > WAIT WINDOW NOWAIT "Sending label to " + m.luValue > SET PRINTER TO NAME (luValue) > LABEL FORM Parcel &lcdestination && TO PRINTER > SET PRINTER TO NAME (lcCurrentPrinter) > > Any ideas on what could be happening? > > -- > > Frank. > > Frank Cazabon > > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/cacuu1svcqgz_o6krg-qqek+wikn8y4ow+5m8hlayqrelqgx...@mail.gmail.com ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
