＋设为首页 ＋添加到收藏夹
利用API还是什么办法可以达到如题的目的？
你是打印什么？
1、如果是报表可直接repo ... to prin 选项
2、如果是表可用list……to prin 选项
3、如果是sql 可用sele ……to prin 选项
Clea
#Define CREATE_NEW 1
#Define CREATE_ALWAYS 2
#Define OPEN_EXISTING 3
#Define FILE_ATTRIBUTE_NORMAL 128
#Define GENERIC_READ 2147483648
#Define GENERIC_WRITE 1073741824
#Define GENERIC_ALL 268435456
#Define MAXIMUM_ALLOWED 33554432
#Define STANDARD_RIGHTS_ALL 2031616
#Define FILE_SHARE_READ 1
#Define FILE_SHARE_WRITE 2
#Define FILE_SHARE_DELETE 4
#Define INVALID_HANDLE_VALUE -1
#Define SW_SHOWNORMAL 1 && 常?大小
#Define SW_SHOWMINIMIZED 2 && 最小化
#Define SW_SHOWMAXIMIZED 3 && 最大化
Declare INTEGER CreateFile IN kernel32;
STRING lpFileName,;
INTEGER dwDesiredAccess,;
INTEGER dwShareMode,;
INTEGER lpSecurityAttr,;
INTEGER dwCreationDisp,;
INTEGER dwFlagsAndAttrs,;
INTEGER hTemplateFile
Declare INTEGER CloseHandle IN kernel32 INTEGER hObject
Declare INTEGER WriteFile IN kernel32 ;
INTEGER hFile,;
STRING lpBuffer,;
INTEGER nNumberOfBytesToWrite,;
STRING lpNumberOfBytesWritten,;
INTEGER lpOverlapped
Local lpFileName,lpBuffer1,nNumberOfBytesToWrite1,lpNumberOfBytesWritten1,hFile1
lpBuffer1=
nNumberOfBytesToWrite1=1
lpNumberOfBytesWritten1=repl(chr(0),4)
lpFileName = "PRN"
hFile1 = CreateFile(lpFileName, GENERIC_WRITE,;
FILE_SHARE_WRITE, 0, OPEN_EXISTING,;
FILE_ATTRIBUTE_NORMAL, 0)
?hFile1
If hFile1 <> INVALID_HANDLE_VALUE
? WriteFile(hFile1,@lpBuffer1,nNumberOfBytesToWrite1,@lpNumberOfBytesWritten1,0)
= CloseHandle (hFile1)
Endif
Clear DLLs
