Hi! Check all memory resident programs maybe one is erasing the file. Since some computers don't have the problem check if there is something different running on the ones that have the problem vs. the ones that don't. Had this problem with one computer and it was a program called PC Pitstop which had an utility running that was supposed to erase Adware but was erasing the print files, see the print job on the print queue but it disappeared immediately and was this utility erasing it.
Regards, AiR Aida I. Rivera-Benítez, MSMIS AiR Information Systems, Inc. San Juan, Puerto Rico -----Original Message----- From: ProFox [mailto:[email protected]] On Behalf Of Frank Cazabon Sent: Friday, September 12, 2014 11:18 AM To: [email protected] Subject: Disappearing Print Jobs 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/[email protected] ** 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.
