标题：页面设置

如何让客户自己进行页面设置？现在每打印一次，都要设置一次，比较烦。

呵呵,没听说过打印一次就要设置一次,你的是什么高级打印机啊
不管是专业报表\窗口打印\还是Excel报表，都提供了用代码设置页面的功能，你可以自己设计一个窗口，让用户输入边距。

我用的是piao据打印的那个，不是专业报表，也不是Excel.

piao据打印不就是窗口打印吗？
你看看帮助重关于piao据打印的章节。

这个我看到了。
要再设计的窗口和一系列全局变量，是可以实现的。

if Vars("纵向").checked=true then
  e.Form.Page.Landscape = True '纵向打印
else
  e.Form.Page.Landscape = false '横向打印
end if

这段代码有问题，如何解决。

我晕了，有你这样表述的吗？变量有Checked属性吗?

应该:

If Vars("纵向")=true then
   e.Form.Page.Landscape = True '纵向打印
else
   e.Form.Page.Landscape = false '横向打印
end if
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

最简洁的：

e.Form.Page.Landscape = Vars("纵向")
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

如果你正在为他人开发商用系统，最好还是搞清楚那些基本概念。
在一知半解的情况下开发商用系统是很危险的，即使你在他人的帮助下凑合开发出来，肯定其中会有不少隐患，而且以后的维护也是一个问题。

运行表A的窗口，选纵向或横向，逻辑值不实时变动，为什么？反复几次，全部变成true

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

点击浏览该文件:管理项目1.table

你自己的设计问题，一个简单的问题，搞得复杂得很，还有两个单选按钮的默认值都设为True干啥？

其实什么也不需要，全局变量也不需要，就一行代码而已：

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

点击浏览该文件:管理项目131.table

因为我要在另外一个窗口引用这个单选按钮的值，所以用全局变量。如贺老师这样，代码是很简单，但我的目的没有达到。望贺老师指点迷津。