【文件属性】：
文件名称：测试Delphi的批量打印功能.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 13:12:12
Delphi源码-界面编程
测试Delphi的批量打印功能，这个批量打印据说用着很顺手，可批量打印文件，同时你也可研究下，Delphi开发环境下，如何实现批量打印功能。相关代码：
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to ShellListView1.Items.Count-1 do
begin
ShellExecute(handle, 'print', PChar(ShellListView1.Folders[i].PathName), 0, 0, 1)
end;
end;
【文件预览】：
srcfans.com
----批量打印()
--------Unit1.dfm(2KB)
--------Unit1.pas(1024B)
--------Unit1.dcu(5KB)
--------Project1.res(876B)
--------Project1.dof(3KB)
--------Project1.dpr(188B)
--------Project1.cfg(434B)
--------Unit1.ddp(51B)