以下是引用实话实说在2018/2/1 13:30:00的发言:如何让用户自行设置页边距?这个设置窗口应该是怎样的?
17楼的帮助还不是很清楚.
1、做一个窗口,把上边距、左边距设置,然后存放起来;
SaveConfigValue("aaa", e.form.controls("textbox1").Text)
SaveConfigValue("bbb", e.form.controls("textbox2").Text)
2、打印代码
dim aaa = getConfigValue("aaa", 10)
dim bbb = getConfigValue("bbb", 10)
e.Form.Page.LeftMargin = aaa '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = bbb '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()