刚开始接触DELPHI还请多关照
客户名称: 年 月 日
-------------------------------------|
项 目 | 备 注 |
-------------------------------------|
内容1 | 内容2 |
| |
内容3 | 内容4 |
| |
--------------------------------------
格式差不多这样。
麻烦大家帮忙看看,给点方法和建议。打印机为OKI的
因为第一次要求做打印功能,也不知道自己有没把问题描述清楚,还请包涵。
客户名称: 年 月 日
-------------------------------------|
项 目 | 备 注 |
-------------------------------------|
内容1 | 内容2 |
| |
内容3 | 内容4 |
| |
--------------------------------------
格式差不多这样。
麻烦大家帮忙看看,给点方法和建议。打印机为OKI的
因为第一次要求做打印功能,也不知道自己有没把问题描述清楚,还请包涵。
QQ:271689588
E_MAIL:[email protected]
谢谢啦
谢谢啦。
我代码用:
procedure TForm1.Button1Click(Sender: TObject);
var
PrintFile:TextFile;
i:Integer;
begin
if PrintDialog1.Execute then
begin
assignPrn(PrintFile);
rewrite(PrintFile);
try
{Printer.Canvas.Font:=; }
for i:=0 to Memo1.Lines.Count-1 do
writeln(Printfile,Memo1.lines[i]);
finally
CloseFile(PrintFile);
end;
end;
end;
end.
但是打印位置要如何控制?