How can I use 'WINEXEC'?(100分)

  • 主题发起人 主题发起人 lybyq
  • 开始时间 开始时间
L

lybyq

Unregistered / Unconfirmed
GUEST, unregistred user!
I want to use EXCEL to print in Delphi ,how can Ido
it?
 
试一试,我没有打印机.
winexec('C:/Program Files/Microsoft Office/Office/excel.exe /e abc.xls',sw_hide);
 
用winexec不如用OLE调用。
 
excel自己应该就有命令行参数实现直接打印,不信你选中一个*.xls文件,按鼠标
右键,在菜单里有一项就是"打印".
关键是参数是什么还不清楚.
 
呵呵, 用ole吧:-)
 
cakk, 那不是命令行参数, 是DDE.
有这种控件. 而且不需要excel就能直接打印excel报表.
 
var
V: Variant;
procedure TForm1.Button1Click(Sender: TObject);
begin
V := CreateOleObject('Excel.Application');
V.Visible := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if not VarIsEmpty(V) then
V.Quit;
end;
 
eyes: 你说的"不需要excel"是指"不需要安装excel"还是"不需要运行excel"?
 
试试看ShellExecute,它的参数好象有print.
 
HINSTANCE ShellExecute(
HWND hwnd,
LPCTSTR lpOperation,
LPCTSTR lpFile,
LPCTSTR lpParameters,
LPCTSTR lpDirectory,
INT nShowCmd
);
其中lpOperation为PChar字符串,指定对文件进行的操作,有效的取值有:

‘open’ 函数将打开lpFile参数指定的文件。该文件可以是可执行文件或文档文件,也可以是文件夹。

‘print’ 函数将打印lpFile参数指定的文件。该文件应该是一个文档文件,如果是可执行文件,函数将打开它,效果同’open’一样。

‘explore’ 函数将浏览lpFile参数指定的文件夹。
例如:
ShellExecute(Handle,’print’,’abc.xls’,’’,’’,SW_Show)将打印指定的文档文件abc.xls
 
接受答案了.
 

Similar threads

A
回复
0
查看
945
Andreas Hausladen
A
A
回复
0
查看
822
Andreas Hausladen
A
A
回复
0
查看
996
Andreas Hausladen
A
S
回复
0
查看
704
SUNSTONE的Delphi笔记
S
S
回复
0
查看
699
SUNSTONE的Delphi笔记
S
后退
顶部