懒虫求助：发票套打的问题。

[joeking]

因为最近家事烦杂，手里的两个程序已经不可能再做下去。不过，有一个定了是要近期交的，虽然是免费，当朋友帮了我不少忙，所以想着还是做给他，其他部分都基本做好，只差发票套打这一部分，大小是191mm*93mm，打印时只是从一个窗体传数据过去，有兴趣的朋友可以发邮件到[e-mail]要我做好的部分，并且我会把发票样式的扫描件也附在邮件中。

（不知道为什么，系统又只准我给97分了，不过，应该是可以不断地加分的。呵呵）

[black_fox]

其实你可以用print.x和print.y定位来实现。。。当然。。总有一点误差啊。。
print.x和print.y只能从前到后。。。不能退回来的。。。
我以前的vb 3.0上这样做过。还行。。

[hanhf]

也可以用水晶报表，先定制纸张格式，然后照着这格式摆数据。

[yqh]

最好是调用excel打印
先用exccel画好一样的表，然后用vb填数据

[jacky_hou]

先发给我看一看!我的E-mail 是Kelly_leecn@yahoo,com,cn

[zhangcc99]

精确套打一般是在一个Form上用Lable对象完成，当然Picture之类亦可，
对好了用Form.PrintForm把这个Form打出去，窗体大小可精确调整、控
件位置可精确调整，附带打印模拟显示。
现在发票套打要求很高，有些场合发票打印压线即废，用其它方法都试
过，均不理想。这个方法没错的。连续套打1000张不会错位。

[joeking]

有帮忙的朋友吗？

[ourtrue]

up

[joeking]

????

[cqq_chen]

如果下的了你的源程序我帮你看看。

[songyangk]

票打最好的方法就是用水晶报表了。98下适用。

[cqq_chen]

我下了你的程序，可惜你用了太多OCX我机上没有，所以没有办法帮你看程序了。
不过我觉的这个程序可以改进的地方还很多，打印可以用Printer对象。
我这有几个小东东可以支持精确定位打印的，一并给大家共享。
Sub ppm (l, r, t, con$)
Printer.CurrentX = l + (r - l - Printer.TextWidth(con$)) \ 2
Printer.CurrentY = t
Printer.Print con$
End Sub
Sub rpm (r, t, con As String)
Printer.CurrentX = r - Printer.TextWidth(con$)
Printer.CurrentY = t
Printer.Print con$
End Sub
Sub textout (x, y, con As String)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.Print con
End Sub

[joeking]

谢谢我是谁哦，呵呵，不好意思，前两天这个邮箱被了放了个蠕虫病毒，不过，我的损失倒不大。呵呵
程序中所引用的OCX有的没有用上，用上的都是VB6自带的，包括SP4和SP5。
各位如果帮助完成此程序，请在程序里署名，选用了哪位的就算是哪位做的吧，我只能做到这一步了，不过最近协商了一下，我可以不用太急着交。呵呵
再次感谢诸位。

[_liang]

若不是用连续纸打印发票，用print方便。（只是对位置比较烦）

[joeking]

看一下扫描的纸张，肯定是连续纸了，呵呵，今天一个朋友说要为此写个COM组件

[joeking]

真的没有人帮忙？

[vbeasy]

我来学习的

[joeking]

看来加分是一个漫长的过程……

[sunking]

up

[lanren_me]

GZ

[joeking]

唉，有的只是关注吗？