怎么样用word修改小票

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修改小票