Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
PDF printing on LAN/WAN
Message
General information
Forum:
Visual FoxPro
Category:
Third party products
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01395213
Message ID:
01395782
Views:
80
>Well, that is not one of the 10 on my list. I'll add it though :-) From what I can tell, it would cost $800 for one client and $1000 for the other so I don't think it meets the cost parameter. Virtually all of these solutions require a special edition for use on Terminal Server and those tend to be much more expensive that the per-seat charges, even if it is only used by 2 people! I didn't see any information indicating that it can be used programmatically. In other words, the application needs to pass it a file name and directory in order to prevent the SaveAs dialog from popping up. Have you used this product in that way?

I use this product for all my applications where report form VFP command is used. Here is an example from my code:
if ascan(aa,"WIN2PDF")>0
   set printer to NAME (aa[ascan(aa,"WIN2PDF")])
   lcOutputFile=lcOutDir+;
	strtran(alltr(lcname)," ","_")+;
	"_"+territory +	"_"+lcBOOKYYMM+".pdf"
		
  erase (lcOutputFile)
* MODIFY REPORT maintdet
  repo form maintdet ;
      while tm_name=lctm_name and _name=lcname ;
 	to file (lcOutputFile) noco
endif
But with Office Automation, Excel, there is a problem (at least in versions prior to 2007, I do not have experience with 2007): in VBA there is no way to bypass the user dialog, and the only way to automate it is to "....Send keystrokes to the active application...." (as it is declared in VBA for Excel Help ). You may see the code example at www.foxite.com, Message ID: 13359. Also in associated
discussion there you may find other suitable ideas.

However for Word, then you may use something like:
    .ActivePrinter = "Win2PDF"		**sets the WIndows Default Printer !?

*.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint)

    .PrintOut(.f.,.f.,"","C:\daily.pdf",,,,,,,.t.)
    
    .ActivePrinter = lcActivePrinter		&&set default printer back
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform