答案:其实就是套打。我这里有全部原代码。如果你需要发消息我吧。 如果套打就要考虑到坐标换行等等。 注意Printer要添加Printers引用 if printdialog1.Execute then begin Printer.BeginDoc; Printer.Title := 'memo内容'; Printer.Canvas.TextOut(100,100,'打印内容'); Printer.EndDoc; end;
上一个:帮我解决个Delphi编程问题下一个:什么是复合语句?它有什么用处 delphi