D
define
Unregistered / Unconfirmed
GUEST, unregistred user!
本人最近在开发打印小票的功能，也百度了一些代码，很多人说用以下的代码就可以打印：procedure TForm1.Button1Click(Sender: TObject);var tfPrint: TextFile; APrintStr: string;begin try APrintStr := '测试'; AssignFile(tfPrint, 'LPT1'); Rewrite(tfPrint); Write(tfPrint, APrintStr); CloseFile(tfPrint); except end;end;因为开发这个功能我特地买了三星的打印机（放的是A4纸），但是用以上代码测试，直接抛出了1个“File not found”的异常提示。把LPT1改成LPT、COM也不行，所以我想上面的代码是不是只对EPSON小票打印机才有用。最后又查了资料开始使用Fastreport来打印，我设置的纸张宽度、长度跟小票一样小，没有A4纸那么大，打印时又提示我缺纸（打印机里面有纸的，大张的可以打印，小张的打印就提示缺纸），所以我在想是不是Fastreport你设置什么纸张，打印机就必须放什么纸张？如果我要打印小票，就必须放入小票的纸张才可以打印？我用A4纸测试不了？？