vb 如何设置打印边距?
需要打印的窗体大小为: 10545 * 9180
打印机默认纸张大小为: A4
问:
怎样使打印时顶部及左边装订线各预留 10mm 的位置?
谢谢!!!
以下你我打印部分的代码:
Private Sub Cmd_print_Click()
Printer.PaperSize = vbPRPSA4
Printer.PrintQuality = -4
Width = Me.ScaleWidth
Height = Me.ScaleHeight
Me.PrintForm
End Sub
[Quote=引用 2 楼 jhone99 的回复:]
设置打印页边距
你可以使用打印机的Scale属性来设置打印页边距。下面的代码设置左边距为1/2英寸。右边距为3/4英寸。乘以1440是将英尺转换成twips。
Printer.ScaleLeft = -0.75 * 1440
Printer.ScaleTop = -0.5 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0
楼上的朋友,我试过了,但是不成功!
继续期待...
是不是论坛改版后大家有些不习惯呢????
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好，我用上面一个东西赋值 TF1.text = & ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
