procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with PrintDialog1 do
begin
Options := [poPrintToFile];
PrintToFile := True;
if Execute then
begin
if PrintToFile then
begin
SaveDialog1.Title := 'Print to File: ';
if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end
else
RichEdit1.Print('');
end;
end;
end;一般后缀为prn,之后可用print命令打印。
begin
with PrintDialog1 do
begin
Options := [poPrintToFile];
PrintToFile := True;
if Execute then
begin
if PrintToFile then
begin
SaveDialog1.Title := 'Print to File: ';
if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end
else
RichEdit1.Print('');
end;
end;
end;一般后缀为prn,之后可用print命令打印。
解决方案 »
- Delphi中用到数据库时有ADOQuery1.SQL[2]
- 动态数组用完后需要释放吗,怎么释放》??
- 写ICON
- 为什么帖子已经结了,还可以回复呢?
- 【急:Delphi打开出错“无法定位程序输入点@Sysutils@CheckWin32Version$qqrii于动态链接库rtl60.bpl】
- 如何结束一个线程?
- delphi5 在2000p上使用存在的问题
- 大家快来研究一下这个病毒源代码!happybirthday,能解释多少就解释多少,送分!
- 帮帮我,一个简单的问题!!!!
- 请问Sql server中BLOB(image)类型的数据怎样通过Delphi添加进数据库???
- 再问ListView问题,当以大图标方式显示时,如何拖动后让它停在那里呢?
- 文件路径的问题
是报表可存为.qrp
一般如楼上所说。
直接将*.prn改成*.ps,用Adobe Distiller转换成*.pdf。
ps=PostScript,由Adobe制定。