Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
老爹您看看10楼的测试,测试用的代码如下....
Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim x As Integer = tables("打印参数")(0)("X参数")
Dim y As Integer = tables("打印参数")(0)("Y参数")
Dim a As Integer = tables("纸张参数")(0)("A参数")
Dim b As Integer = tables("纸张参数")(0)("B参数")
doc.PageSetting.Width = a
doc.PageSetting.Height = b
我无语了...换上HP LaserJet 1018激光打印机...出来是这样的(下图..)...不但整体转90度,而且是从预览的右边打起,整体还缩小....如果把红色部分删除,则正常.....
测试代码...
Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim x As Integer = tables("打印参数")(0)("X参数")
Dim y As Integer = tables("打印参数")(0)("Y参数")
doc.PageSetting.Width = 187
doc.PageSetting.Height = 102
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0