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
楼上的朋友,我试过了,但是不成功!
继续期待...
是不是论坛改版后大家有些不习惯呢????
相关问答：
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
我用C#写了一个COM。
其他有２个类，一个类就是普通方法。调用没问题。
另一个类是用户控件。我在VB中如何把那个控件显示出来？
VB调COM中，COM 是个控件。
谢谢高手指点。
......
再VB模块中我是通过如下方式来连接主库和历史库的(历史库数据量大)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......
