<div>
The PC system is not crashing your program just does not properly handle the APRINTERS() result... You have to test the result returned by the APRINTERS() function to avoid this &quot;crash&quot;.<br />
<br />
But it does not mean the APRINTERS() function works well when the array is not created but printers exist.<br />
<br />
Unfortunately you have not so many options to fix this behavior.<br />
<br />
1) Check the version of your run-time libraries used for EXE run on all PCs ( VERSION(4) function should return 09.00.0000.7423)<br />
2) If the APRINTERS() returns 0 then you may attempt to issue GETPRINTER() to allow users to select printer from available printers.<br />
3) If the GETPRINTER() does display empty printers list then you may try to obtain the list of printers by Win32 API call. See EnumPrinters API call here: <a href="http://www.news2news.com/vfp/?group=57&function=215" rel="ugc">http://www.news2news.com/vfp/?group=57&function=215</a><br />
4) You may also check other printer related functions from the same resource (EnumPrinterDriver API call is available as the source for a free)<br />
<br />
Another useful piece of code is e.g. here: <a href="http://www.berezniker.com/content/pages/visual-foxpro/enumerating-printer-forms" rel="ugc">http://www.berezniker.com/content/pages/visual-foxpro/enumerating-printer-forms</a><br />
<br />
You may also obtain the list of printers by WMI:<br />
oWMI = GetObject(&quot;winmgmts:\\.\ro<wbr />ot\cimv2&quot;)<wbr /><br />
oPlist = oWMI.ExecQuery(&quot;Select * From Win32_Printer&quot;)<br />
FOR EACH oPrinter IN oPlist<br />
&nbsp; ? oPrinter.Name<br />
NEXT<br />
<br />
More info: <a href="http://blogs.technet.com/b/heyscriptingguy/archive/2006/08/14/how-can-i-list-all-the-printers-on-a-remote-computer.aspx" rel="ugc">http://blogs.technet.com/b/heyscriptingguy/archive/2006/08/14/how-can-i-list-all-the-printers-on-a-remote-computer.aspx</a><br />
<br />
The only thing we are sure about is no VFP update from Microsoft...
</div>


<div>
Agree with you about &quot;crashing&quot;. &nbsp;I was referring to code crashing since aPrinters() did not fill up the array. &nbsp;One point is bugging me: my program is working when ran from APP but fail when from EXE on same PC, even when EXE is built on that PC. &nbsp;Same program is well working on other PC. &nbsp;I compared files from those two and they are the same. &nbsp;Do you know if there are some dll I should check version or availability on the faulty machine to make aPrinters() working ? &nbsp;Reason why I need to fix that function on that machine is that FoxyPreviewer have some fatal issues when asked. &nbsp;Again, on another machine, all that is working :S
</div>


<div>
How do you execute the APP? From VFP IDE by DO command? &nbsp;VFP IDE uses different environment than running EXE. &nbsp;Did you try to execute EXE by DO command from VFP IDE?<br />
<br />
Did you check the VERSION(4) when the EXE/APP is running?<br />
<br />
Printers enumeration calls functions from &nbsp;WINSPOOL.DRV &nbsp;so you may check this file version (in Windows\SYSTEM32 on 32 bit systems, &nbsp;in Windows\SYSWoW64 &nbsp;on &nbsp;64 bit systems).
</div>


<div>
Not sure what happened. &nbsp;The user was using Comodo anti-virus. &nbsp;We disabled it for an hour, ran the EXE without any problems. &nbsp;We then re-enabled anti-virus and EXE still ran without any problems. &nbsp;100% confused now. &nbsp;A test we missed to do is to make sure EXE was still failling before disabling anti-virus. &nbsp;However, yesterday we did reboot PC and EXE was still not working. &nbsp;Since I'm 100% confused, it might be possible that EXE was working before anti-virus turned off. &nbsp;Does this make any sense to you ?!?
</div>


<div>
Very efficient, thanks a lot for your precious collaboration
</div>


<div>
Just a question: How many printes are installed, and are they available for the current user, when running the EXE?<br />
<br />
Just check if APRINTERS() returns 0, then there s no printer for that user.<br />
<br />
Unusual, but what else should be a problem? Too many printers perhaps, specifically network printers.<br />
<br />
Also see the note of the help topic: The behavior of this function is OS (operating system) - specific. Visual FoxPro may or may not check to see if the printers are actually connected to your computer when it prepares this list, and the list may include all printers installed as printer setups, or only those available on the current network.<br />
<br />
So reasons for the function no working are also possible in OS configuration or behaviour.<br />
<br />
Bye, Olaf.
</div>


<div>
Thanks Olaf. &nbsp;The involved user is now running my exe in sandbox. &nbsp;Since that time he did not face that error. &nbsp;My understanding is that anti-virus was blocking aPrinters().
</div>


<div>
<div class="content wysiwyg-content">
Function aPrinters() is working when under application. &nbsp;Failled when ran from EXE on some PC and works well on others. &nbsp;<br />
<br />
=APRINTERS(xPrinterList,0)<wbr /><br />
IF ASCAN(xPrinterList,&quot;pdf995<wbr />&quot;,1,0,1,1)<wbr /> = 0<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mbkGestionSorties = .f.<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bPDF995Present = .f.<br />
ENDIF &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
<br />
On some PC system is crashing stating that xPrinterList does not exist. &nbsp;If I run into APP mode onto same PC, no problems. &nbsp;If I run EXE on another PC, it run fine. &nbsp;<br />
<br />
Thanks
</div>
</div>


Function aPrinters() is working when under application.  Failled when ran from EXE on some PC and works well on others.  

=APRINTERS(xPrinterList,0)
IF ASCAN(xPrinterList,"pdf995",1,0,1,1) = 0
	mbkGestionSorties = .f.
	bPDF995Present = .f.
ENDIF 	

On some PC system is crashing stating that xPrinterList does not exist.  If I run into APP mode onto same PC, no problems.  If I run EXE on another PC, it run fine.  

Thanks

aprinters() not working in EXE

Visual FoxPro (VFP), and its predecessor FoxPro, is a data-centric, object-oriented, procedural, database programming language and IDE from Microsoft last released in 2007 that still has some active use due to its low cost of deployment and fairly rapid development. In 2008, Microsoft released a set of add-ons for VFP's xBase components to allow interoperability with various Microsoft technologies. It allows data processing against its native file-based data tables or database servers such as SQL Server.