  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		蕭瑤
 
 
  註冊時間: 2005-04-09 文章: 4
 
  第 1 樓
  | 
		
			
				 發表於: 星期六 四月 09, 2005 10:46 am    文章主題: 報表呼叫印表機設定並修改windows 內之 '預設印表機' 之方法 | 
				     | 
			 
			
				
  | 
			 
			
				| 請問各位先進 ,如何能於報表列印程式中,直接修改 windows 內之 預設印表機 並將報表指向修改後之印表機, 謝謝 ! | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		小賴
 
 
  註冊時間: 2004-12-27 文章: 477
 
  第 2 樓
  | 
		
			
				 發表於: 星期六 四月 09, 2005 2:34 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				SET("PRINTER", 2)   取得 默認的 Windows 打印機名 
 
SET("PRINTER", 3)   取得 默認的 Visual FoxPro 打印機名
 
SET PRINTER TO NAME cPrintName  設定默認的 Visual FoxPro 打印機
 
 
 
以下函數可設定作業系統預設列表機
 
傳入列表機名; 可傳進 ""  開啟列表機設定視窗選定
 
 
FUNCTION SetSysDefaultPrinter
 
PARAMETERS cPrinterName
 
WshNetWork = CREATEOBJECT("Wscript.NetWork")
 
IF EMPTY(cPrinterName)
 
    cPrinterName = GETPRINTER()
 
ENDIF
 
IF ! EMPTY(cPrinterName)
 
    WshNetWork.SetDefaultPrinter(cPrinterName)
 
ENDIF
 
RELEASE WshNetWork
 
RETURN | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |