在窗口中设置打印按钮，可是总是不能控制页边距，怎么解决呢？之前直接用窗口打印不行，在朋友的建议下添加了TabControl和panel控件，可是仍然达不到效果。Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pan1 As WinForm.Panel = e.Form.Controls("Panel1")
'e.Form.Page.Width = 230'纸张宽度为210毫米
'e.Form.page.Height = 200 '纸张高度为140毫米
Dim doc As PrintDoc
Select Case tb.SelectedPage.text
Case "Page1"
doc = e.Form.GernatePrintDoc(pan1)
End Select
Doc.PageSetting.Width=210
Doc.PageSetting.Height=140
Doc.PageSetting.TopMargin=10
Doc.PageSetting.BottomMargin=10
Doc.PageSetting.LeftMargin=10
Doc.PageSetting.RightMargin=10
doc.Preview()
加好友 
发短信
Post By：2017/10/18 16:06:00 [只看该作者]
