如何在打印完40页后停止打印,重新调整后再打印?或者说如何在打印完40页后跳出一个询问语句??

ztiger 2004-08-11 09:40:58
如题
...全文
83 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ztiger 2004-08-12
  • 打赏
  • 举报
回复
打印到40页后,打印位置就开始发生偏移,所以想在打到40页后调整一下打印纸的位置
h_x_k 2004-08-11
  • 打赏
  • 举报
回复
var page:integer;

page:=1;
if 当前X坐标>printer.pagewidth then
begin
print.newpage;
inc(page);
if page=40 then showmessage('40');
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧