1.怎样才能把WORD默认A4纸打印改成发票打印纸
1、打开需要处理的文档,点击菜单栏上的打印按钮,如下图所示;
2、进入打印界面后,点击打印机属性,如下图所示;
3、在打印机设置中原稿尺寸位置处选择自定义尺寸,如下图所示;
4、将宽度和长度设置为发票的实际大小,输入完成后点击确定,如下图所示;
5、返回打印机设置页面后,继续点击确定,如下图所示;
6、在打印界面中再次点击确定就可以打印发票了,如下图所示。
2.能用word打印小票吗
可以~安装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!!!!!!!!简单吧!!!!!!!!!
转载请注明出处51数据库 » 怎么样用word修改小票