主题：用户能否自行修改控件套打位置

我开发设计了piao据套打软件，每个用户使用时，打印内容都会出现打印位置对不端的现象，每个用户都得试打后再次修改控件位置，直到打印位置对齐为止，所以很麻烦，请问老师：有没有办法让用户自己动手调整控件位置，使打印文字对齐？

感觉还是复杂，把之前设计的要重新作大的修改才行。

老师你好！上次我向你提问：“我开发设计了piao据套打软件，每个用户使用时，打印内容都会出现打印位置对不端的现象，每个用户都得试打后再次修改控件位置，直到打印位置对齐为止，所以很麻烦，请问老师：有没有办法让用户自己动手调整控件位置，使打印文字对齐？ ”你告诉我“做个窗口，让用户输入页边距就行”，可我怎么也想不出来该怎么设计，我把我设计的发给你，请你帮我设计一下行吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账单二幼.foxdb

帮我设计一个窗口就行，其他我就可以模仿了。谢谢！ 开发者密码：999

我看了，但还是不会。请帮我设计一下嘛老师，谢谢您！！上次你还提出“也可以做个表格让与自己调整控件的位置和大小”，对于我来说还做不了，我也是边学边做的，再次谢谢你，你有时间时再帮我设计也行。

我还是不知道怎样写，不知道是新一个窗口在窗口事件中写还是在原来的窗口中打印按钮事件中写。

还是不会哦，写到哪里都不知道呢。

老师你好！上次我向你提问：“我开发设计了piao据套打软件，每个用户使用时，打印内容都会出现打印位置对不端的现象，每个用户都得试打后再次修改控件位置，直到打印位置对齐为止，所以很麻烦，请问老师：有没有办法让用户自己动手调整控件位置，使打印文字对齐？ ”你告诉我“做个窗口，让用户输入页边距就行”，可我怎么也想不出来该怎么设计，我把我设计的发给你，请你帮我设计一下行吗？
帮我设计一个窗口就行，其他我就可以模仿了。谢谢！ 开发者密码：999

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账单二幼.foxdb

e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距

这样加入用户还不是修改不了边距吗？变量怎样写？

Dim sz As Row = Tables("szb").corrent
Dim sy As Row = Tables("szb").corrent
Dim ss As Row = Tables("szb").corrent
Dim sx As Row = Tables("szb").corrent
e.Form.Page.LeftMargin = sz("左")
e.Form.Page.RightMargin = sy("右")
e.Form.Page.TopMargin  = ss("上")
e.Form.Page.BottomMargin = sx("下")

Dim  doc As PrintDoc =  e.Form.GernatePrintDoc()
Doc.AutoRotate = False
Doc.PageSetting.Landscape = True
doc.Print

 

 

提示： corrent不是table的成员.