能用word打印小票吗?
来源:百度知道 编辑:UC知道 时间:2024/09/28 07:55:55
可以~安装1600K的专用控件。
装上第三方控件后你可以自行修改也可以用~
如下:
附例:Delphi
//生成打印数据文件 dirname+`prn.txt`
procedure TForm1.SaveTxt;
var F :Textfile;
begin
AssignFile(F,dirname+`prn.txt`);
try
ReWrite(F);
Writeln(F,`要打印的第一行`);
Writeln(F,`要打印的第二行`);
Writeln(F,`要打印的第三行`);
Writeln(F,`要打印的第四行`);
Writeln(F,`要打印的第五行`);
//......
finally
Closefile(F);
end;
end;
/////////
---------------------------------------
//调用打印接口程序的方法
procedure TForm1.Printme;
var
sCommandLine: string;
bCreateProcess: boolean;
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
begin //命令行参数
sCommandLine :=dirname+`Printer.EXE `+dirname+`prn.txt *****`;
// 填入 StartupInfo 信息
FillChar(lpStartupInfo,Sizeof(TStartupInfo),#0);
lpStartupInfo.cb := Sizeof(TStartupInfo);
lpStartupInfo.dwFlags := STARTF_USESHOWW