uses printers;with Printer do begin Title:=Appname+' - '+ExtractFileName(Filename); BeginDoc; PageWidth:=?; ... for .... Canvas.TextOut(x,y,'text to out'); EndDoc; end;很详细了吧?
楼上说得很清楚,如果楼主还看不懂,可以参考相关书籍如《delphi实例与技巧》 等,这里给一个借用TRichEdit的打印功能来打印memo的内容: var prin:TRichEdit; begin try prin:=TRichEdit.Create(nil); prin.Lines:=memo1.Lines; RichEdit1.Print('标题名称') finally prin.Free; end;
我学delphi近一星期!只有晚上才有空呀
是不是delphi做不了!!!
我试过QRMemo控件打印不成功
uses printers;with Printer do
begin
Title:=Appname+' - '+ExtractFileName(Filename);
BeginDoc;
PageWidth:=?;
... for ....
Canvas.TextOut(x,y,'text to out'); EndDoc;
end;很详细了吧?
等,这里给一个借用TRichEdit的打印功能来打印memo的内容:
var
prin:TRichEdit;
begin
try
prin:=TRichEdit.Create(nil);
prin.Lines:=memo1.Lines;
RichEdit1.Print('标题名称')
finally
prin.Free;
end;
可如果没有打印机,
上面的程序是会出问题的
Delphi错误处理能力就这么差吗?