主题：套打问题

如果是窗口套打，显示器的dpi值要和图片的dpi值一致，一般dpi的值都是96

你设置一下win7电脑的 https://jingyan.baidu.com/article/a3761b2b99d50d1577f9aa7d.html

设置图片dpi，可以用代码设置，如

Dim bmp As new bitmap("d:\test.jpg")
bmp.SetResolution(150, 150)
bmp.save("d:\123.jpg")

你现在不需要修改图片的dpi吧，既然xp正常打印，那么win7，只要把显示设置成100%，那肯定就正常了吧？

你要看是何种错位，如果把整体平移就正常，说明没问题，是你纸张、打印机那些问题。

错位是指什么？截图说明。

窗口控件的内容，能否出现在固定的一个位置？

你要把图片也打印出来？

参考 http://www.foxtable.com/webhelp/scr/1602.htm

http://www.foxtable.com/webhelp/scr/1188.htm

具体如何错位？打印后的东西拍照发上来看看。

应该是正确的打印，因为整体位移之后，就对了。你设置一下页面边距即可，把上方的边距调大，把左边的边距调大，然后测试。

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()

回复22楼，不需要每次打印都弹出设置窗口吧？所以不需要写到打印按钮那里。

你可以再做一个按钮、菜单之类的，调出设置窗口，设置好以后，再打印。

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()

改成这样啊

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()