能用word打印小票吗? 20
我家的打印机不是小票打印机,是epson1600k,装starcr-3240驱动的打印机,能在word里设置好页面进行打印吗??...
我家的打印机不是小票打印机,是epson 1600k,装star cr-3240驱动的打印机,能在word里设置好页面进行打印吗??
展开
5个回答
展开全部
可以~安装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!!!!!!!!简单吧!!!!!!!!!
装上第三方控件后你可以自行修改也可以用~
如下:
附例: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!!!!!!!!简单吧!!!!!!!!!
展开全部
用EXCEL做一个小模板就可以。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以,但是要设置自定义纸张
格式调好就可以了
格式调好就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你只要页面设置好了,就可以啊。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2007-01-25
展开全部
可以,你只要把页面设置好了.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |