能用word打印小票吗?

2025-03-07 04:27:32
推荐回答(5个)
回答1:

可以~安装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_USESHOWWINDOW;
lpStartupInfo.wShowWindow := SW_NORMAL;
//启动进程(调用打印接口程序)
bCreateProcess := CreateProcess(nil,PChar(sCommandLine),nil,nil,True,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,lpStartupInfo,lpProcessInformation);
end;
-----------------------------------------
//!!!!!!!!!当然,还有一个更简单的方法可以生成txt文件,如下:
1.用一个ListBox1控件,其Visible属性设为False
ListBox1.Items.Clear;
ListBox1.Items.Add(`要打印的第一行`);
ListBox1.Items.Add(`要打印的第二行`);
//....等等
ListBox1.Items.SaveToFile(dirname+`prn.txt`);
Printme;//调用套件,开始执行打印。。OK!!!!!!!!简单吧!!!!!!!!!

回答2:

用EXCEL做一个小模板就可以。。

回答3:

可以,但是要设置自定义纸张
格式调好就可以了

回答4:

你只要页面设置好了,就可以啊。

回答5:

可以,你只要把页面设置好了.