[高6]在Access的MDE中如何用VBA自定义纸张

tmtony

大家知道,在Access的MDB中可以定义自定义纸张,但MDE就不行了,而在Access XP后有了Printer对象,需要可以设置纸张边距等各种页面设置,但无法选择自定义纸张.

希望大家就这个问题进行研讨.

竹笛

哈哈，高处不胜寒啊！

cg1

我不写代码，只做思路



报表放在一个MDB 中，直接用代码操作对应的MDB ，新建一个 APPLICATION 即可，甚至弹出式报表也能解决。



关于此主题请参考：
    如何让 ACCESS 2000 支持弹出式报表？（仅思路）《报表》
    http://access911.net/index.asp?u1=a&u2=72FAB01E15DCEEF3

tmtony

谢谢,我现在也正是使用这个方法,但因为使用SQL SERVER数据库的话,报表的连接数据比较好处理.但如果是MDB数据库,需要刷新两个文件的链接表,且如果是两个application,例如窗体与报表之间要传递数据. 不是很方便,我只能通过一些中间方式来实现,总是不太方便.所以想了解一下API或其它方式有没有人尝试过

wwwok

这么好的主题怎么没了下文呢? 顶起来!

lwwvb

试试LWWVB的XOPEN技术吧.

Public FormPoint(1 To 10) As Form  ''FORM的堆记录
Public FormP As Integer            ''堆指针


'''XOPen基本的功能
Public Sub OPenWin(ParentForm As Form, s As String)
  If IsNull(ParentForm) = False Then
    FormP = FormP + 1
    Set FormPoint(FormP) = ParentForm
    ParentForm.Visible = False
  End If
  
  DoCmd.OpenForm s, , , , , acDialog

End Sub

Public Sub CloseWin()
  DoCmd.Close
End Sub

Public Sub PrintReport(ParentForm As Form, RptName As String, Optional 预览打印 As Boolean = True)
  FormP = FormP + 1
  Set FormPoint(FormP) = ParentForm
  ParentForm.Visible = False

  DoCmd.OpenReport RptName, IIf(预览打印, acViewPreview, acViewDesign)
  If 预览打印 Then DoCmd.Maximize
  
End Sub

Public Sub ShowWin()
  FormPoint(FormP).Visible = True
  FormP = FormP - 1
End Sub


在每个Form和Report的close或Unload中加入showwin这句.打开form或report时用Openwin /PrintReport方法就行.



唉,ACCESS呀ACCESS,连个继承都没有.每个FORM和REPORT都加上这个showwin,真是累坏了大家.

随便对大家说一声,本人已经转了DELPHI,原来ACCESS的疑难问题一扫而空.发现DELPHI做数据库不知道要比ACCESS爽多少倍.[em05]

lwwvb

呵,是的,看错题意了.看了cgl的贴就走了神.以为是解决ACCESS 2000报表中不能弹出的问题.

MDE要自定义报表的确十分的麻烦.如果是我,也只好多做一个MDB.再用链接表的方法了.但是的确挺麻烦的.

话说来,ACCESS被MS定义成为一个方便一下办公的小工具而已.它本身的GUI能力就非常有限,对它有太过高的要求.无疑于自寻烦恼.要解脱这些烦恼的最佳方法就是用DELPHI.

DELPHI只要一行命令就有一个非常漂亮的用户报表设计界面(还允许用户保存多份报表格式).而且上面弹出的问题也不存在.

secowu

随便对大家说一声,本人已经转了DELPHI,原来ACCESS的疑难问题一扫而空.发现DELPHI做数据库不知道要比ACCESS爽多少倍

DELPHI只要一行命令就有一个非常漂亮的用户报表设计界面(还允许用户保存多份报表格式).而且上面弹出的问题也不存在

会不会用其它的对象编程语言更好呢？

[此贴子已经被作者于2005-12-13 9:33:41编辑过]

lanchong

delphi的数据控件不是unicode啊，而现在的输入法入的东东让人烦啊