pb11.5调用系统打印机 Function ulong ShellExecute(ulong hwnd,ref string lpOperation,ref string lpFile,ref st

pb11.5调用系统打印机

Function ulong ShellExecute(ulong hwnd,ref string lpOperation,ref string lpFile,ref string lpParameters,ref string lpDirectory,ulong nShowCmd) LIBRARY "shell32.dll" ALIAS FOR "ShellExecuteA;ansi"

//pb9调用方法

Function Long ShellExecute (UInt  ihwnd,String  lpszOp,String lpszFile,String  lpszParams, String  lpszDir,Int  wShowCmd ) Library "Shell32.dll" Alias For "ShellExecuteA"  

string ls_null,ls_pic,ls_cmd

setnull(ls_null)

ls_cmd="print"

ls_pic="D:\qianerpgsp\bmp\07.bmp"

messagebox('',ShellExecute(0,ls_cmd,ls_pic,ls_null,ls_null,0))