关于打印的准确定位问题，主要是单位换算

Question

因为最近要写一个套打小程序，需要对打印效果进行准确的定位。我以前从来没有过这方面的经验。请大虾门指点一二。 主要是单位换算的问题。比如我知道纸张大小为10*10厘米的，我想要在5厘米*5厘米的位置打印一行字应该怎么做呢。通常我们在VB中使用的逻辑坐标，跟象素。不知道怎么转换成厘米或毫米呢顺便说一下 需不需要改变影射模式谢谢

Answer 1

你这样写套打会很累的首先设置printer的坐标模式为厘米
然后在打印纸上确定printer的原点所在位置（也就是在打印纸上打印一条水平线）
然后确定你要打印的位置的坐标
然后currentx=..,currenty=..,print..

Answer 2

给你一个思路1cm=567缇。然后用Printer对象搞定。

Answer 3

刚刚给你在机上试了一下代码，可以准确定位，不信用尺子量量Private Sub Command1_Click()Printer.ScaleMode = 7  '厘米Printer.CurrentX = 0
Printer.CurrentY = 0Printer.FontSize = 14 '注意，这里字体的大小不是厘米单位而是系统的字号
Printer.Print "这是0厘米"Printer.CurrentX = 5.5
Printer.CurrentY = 0Printer.FontSize = 12
Printer.Print ; "这是5.5厘米"Printer.EndDoc
End Sub

Answer 4

直接copy代码运行试，要多准确有多准确，随心所欲

Answer 5

有个国产免费的，不知能不能用，我没试过你试试看吧！
http://www.ddooo.com/softdown/13770.htm