测试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;
1