SOS！本人比较菜，第一次做打印程序，这次要做个套打的程序，请各位指点，奉送200大元(200分)

  • 主题发起人 主题发起人 潇翔
  • 开始时间 开始时间
潇

潇翔

Unregistered / Unconfirmed
GUEST, unregistred user!
　　　本人急要做个套打的程序，我打算用QuickReport做，请问如何实现精确控制输出，并
按自己的要求设制纸张的大小。如果有源程序的话，能否给我拜读一下，本人万分感激。再
一个，因为数据比较多如何实时打印暂停。下次能够接着往下打。
 
找一下过去的问题，很多的。
quickreport在nt下不好调，我做套打时差一点把我累死
 
我也在打印，大家可以商量一下。不过我想你最后的那种想法意义不大。看看Word，
已经做的很不错了，也没有那样，因为它已经给分页了。
因为我是用RB做的报表，所以你想看源码的话就告诉我一下，我不在这里现拙了。
kingbird@etang.com
 
选纸张时
可以自定义纸张大小的
 
如果要做套打，我还是建议你用F1Book，它的尺寸可以控制到0.01毫米（Maybe），
这样可以减少调试时间。
 
我做过一个测量软件，需要绘制图形，可以控制纸张的尺寸，因为需要布置图形。
用的是坐标控制，精确移动画笔。不知是否能有些帮助，需要的话，可以参考。
另外，套打是什么意思？
 
郭玉梁,
哪里有比较详细的F1Book的说明文档或者例程？
 
我是一个菜鸟,现在也做,套打程序,关注!
 
由于时间紧，大富翁常常进不去，所以我自己硬着头皮想尽办法，方法虽然有点笨，但蛮
管用的。我在win2000下用quickrep组件做的。因为不知道怎么人为指挥分页，为了让计算
机一页只打印一个记录我就把detail设置成页面大小，这样计算机就不得不帮我分页了，
呵呵。由于设置好了页面大小，组件上有网格，也就对得准，当然我的套打不要像打印图纸
哪样精确。由于我要打2000多份，所以我后来加了个页码，这样如果打印出了问题可以知道
是第几页出了错，到时可以重新打印那页。欢迎大家和我交流。loxer朋友，你的源程序可不
可以给我发一份，让我学学怎样绘图，我也看过有的朋友是采用这种方法来做的。套打就是
往印好了的纸上填东西如发票，学生证等等
 
var
Device:Array[0..cchDeviceName-1] of Char;
Driver:Array[0..(MAX_PATH-1)] of Char;
Port:Array[0..32] of Char;
hDMode:THandle;
pDMode:PDevMode;
begin
Printer.GetPrinter(Device,Driver,Port,hDMode);
if hDMode<>0 then
begin
pDMode:=GlobalLock(hDMode);
if pDMode<>nil then
begin
pDMode^.dmPaperSize:=DMPAPER_A5;
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE;
GlobalUnLock(hDMode);
end;
end;
end;
是设置打印机的，你试试吧

 
看看我在“发票打印”中的贴子吧，和楼上这位的相似，只不过代码多些，也许对你有帮助
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
1
有那位富翁用DELPHI做过条形码打印程序，（斑马Z4M）。交流交流。有没有人啊？？？(10分)
回复
5
查看
264
11111
1
X
谁做过打印ems 信封的程序? 怎么做? 如果有成品最好发给我一个(200分)
回复
18
查看
214
ldh000
L
S
急！请问这样的证件套打怎么做？(100分)
回复
11
查看
220
sweetbriar
S
L
求一编写打印程序的思路！高手指点！(100分)
回复
8
查看
352
lizhen_1020
L
后退
顶部