Office中国论坛/Access中国论坛

标题: [高6]在Access的MDE中如何用VBA自定义纸张 [打印本页]
作者: tmtony    时间: 2005-4-18 19:58
标题: [高6]在Access的MDE中如何用VBA自定义纸张
大家知道,在Access的MDB中可以定义自定义纸张,但MDE就不行了,而在Access XP后有了Printer对象,需要可以设置纸张边距等各种页面设置,但无法选择自定义纸张.

希望大家就这个问题进行研讨.
作者: 竹笛    时间: 2005-5-8 08:03
哈哈，高处不胜寒啊！

作者: cg1    时间: 2005-5-8 20:08
我不写代码，只做思路



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



关于此主题请参考：
    如何让 ACCESS 2000 支持弹出式报表？（仅思路）《报表》
    http://access911.net/index.asp?u1=a&u2=72FAB01E15DCEEF3
作者: tmtony    时间: 2005-5-8 22:45
谢谢,我现在也正是使用这个方法,但因为使用SQL SERVER数据库的话,报表的连接数据比较好处理.但如果是MDB数据库,需要刷新两个文件的链接表,且如果是两个application,例如窗体与报表之间要传递数据. 不是很方便,我只能通过一些中间方式来实现,总是不太方便.所以想了解一下API或其它方式有没有人尝试过
作者: wwwok    时间: 2005-12-11 02:32
这么好的主题怎么没了下文呢? 顶起来!
作者: lwwvb    时间: 2005-12-12 04:56
试试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]
作者: ganrong    时间: 2005-12-13 01:43
提示: 作者被禁止或删除 内容自动屏蔽
作者: lwwvb    时间: 2005-12-13 08:26
呵,是的,看错题意了.看了cgl的贴就走了神.以为是解决ACCESS 2000报表中不能弹出的问题.

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

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

DELPHI只要一行命令就有一个非常漂亮的用户报表设计界面(还允许用户保存多份报表格式).而且上面弹出的问题也不存在.
作者: secowu    时间: 2005-12-13 17:32
随便对大家说一声,本人已经转了DELPHI,原来ACCESS的疑难问题一扫而空.发现DELPHI做数据库不知道要比ACCESS爽多少倍

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

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


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

作者: lanchong    时间: 2005-12-14 02:44
delphi的数据控件不是unicode啊，而现在的输入法入的东东让人烦啊
作者: lwwvb    时间: 2005-12-14 06:50
呵呵,现在成熟的第三方控件已经解决了这些问题了.unicode码,一般都支持.
作者: lwwvb    时间: 2005-12-14 07:55
TO:secowu

我看不会.学过VS 2003 C#和DELPHI,发现:

1、C#是DELPHI的盗版.

2、C#编译速度慢.不爽.

3、C#的第三方控件现在还不如DELPHI这么多和成熟

4、ADO.NET的操作方式做MIS非常别扭，这点不知道是我不懂其中的妙处。还是ado.net太嫩了。

但是论语言方面，C#是JAVA的盗版。完全面向对象，IDE和智能提示等工具又做得比DELPHI 好。在C#上面搞其它的编程，相当舒服。

很久以前也搞过VB6，发现VB6：

1、不是真正的面向对象编程，连继承窗体都不支持。晕~

2、数据库编程模式相当差，模式太过简单，第三方的支持又少。设计数据库的效率相当低。

3、很多地方的操作能力都不如人意，VB6这玩意很多地方都制约着程序员的思维。

好，说说DELPHI ：

1、真正面向对象编程，又可以过程化的语言。

2、而且支持窗体继承和控件继承，做这些都相当的爽。VB就是因为没有这个，如果要做一个控件的加强版，就要写非常多的委托代码。原控件有100个属性的话，如果你要想这些属性都要全用的话，就要傻乎乎的重复写100遍委托码。而且，VB的控件设计模式做得相当的笨，那个什么"数据袋",要加载控件的时候，要用户傻乎乎的一个个属性的去读取和保存。因为这种笨拙的设计模式，造成用VB做控件的人少之又少。

3、强大又灵活的数据库编程模式。（呵呵，只有DELPHI才做到这个）

灵活的源：DELPHI把链接源、数据源泉和控件都分开了，本来很多ACCESS中要用到代码实现的东西，在DELPHI中都免代码现实。因为控件可以跨窗体引用，所以它很轻易的支持数据源不同窗体间的绑定。呵呵，这个很趣的功能，很有用。我可以把一些经常用到的重复的数据源写在一个控件中。

计算字段：DELPHI很精明，它把横向计算性质的字段都用一个事件引发，你可以在这个事件中写入这个计算字段所要的值。呵呵，比什么嵌入式函数都要灵活多了。如此一来，人家DELPHI可以调试计算字段的内容了。不用错误了显示那些奇怪的“#错误”，都不知道什么事。二来，计算字段也是编译运行了，快！

4、丰富的第三方控件支持。光是报表，都有6种的选择。人家还是全部开源的~^_^

报表支持：普通式，分组式，主从式，交叉报表，动态报表，多栏表。报表还支持用户自定义界面。

数据控件：

优秀的控件有DEV系列的，那些小数据库绑定控件，功能相当丰富。

如：文本框可以弹出一个计算器 ，组合框可以弹出一个树视，让用户选择节点。组合框也支持象ACCESS那样的多列下拉表，而且人家还可以列排序，筛选，调大小和宽度，列中可以用条件格式（写代码，超灵活）。最有趣的是，人家有一个超级组合框，可以把任意的控件或窗体放到里面中，你在打开此组合框时，就可以弹出你的自定义控件~~~

那个cxGrid，才是100%叫“只有你想不到，没有做不到”。如果还是做不到嘛，嘿嘿，行！人家源码全开放，你有能力就改这个控件吧。

<FONT face=Verdana color=#61b713>那个树表控件，真是强而又强。一般树表的加载，你只要设一下数据源，父ID和主ID等等这些信息，它在运行的时候就可以把整个树表都加载到当中了。你向这个数据源添加新记录，晕~~这个树表就会自动添加对应的节点。你又可以直接在树表中进行操作节点，移动、复制、添加、改名。哈哈~~一句代码都不用写，数据源的相应数据就自
作者: Grant    时间: 2005-12-20 01:23
！！卖广告的？
作者: guoya    时间: 2006-4-17 02:45
在xp系统中利用print对象可以实现，转换为mde后使用正常

首先将页面边距和自定义纸张设置为两个表，

在模块中编写代码

Public Sub PrintMargin(r As Report)
Dim intTop As Integer '上边距
Dim intLeft As Integer '左边距
Dim intBottom As Integer '下边距
Dim intRight As Integer '右边距
Dim strPrtname As String '报表名称
Dim intpapersize As Integer '纸张大小
Dim intorientation As Integer '打印方向
strPrtname = r.name
intTop = DLookup("[RPTTOP]", "页面", "[RPTNAME]='" & strPrtname & "'") * 567
intBottom = DLookup("[RPTBOT]", "页面", "[RPTNAME]='" & strPrtname & "'") * 567
intLeft = DLookup("[RPTLEFT]", "页面", "[RPTNAME]='" & strPrtname & "'") * 567
intRight = DLookup("[RPTRIGHT]", "页面", "[RPTNAME]='" & strPrtname & "'") * 567
intpapersize = DLookup("[papersize]", "页面", "[RPTNAME]='" & strPrtname & "'")
intorientation = DLookup("[Orientation]", "页面", "[RPTNAME]='" & strPrtname & "'")
r.Printer.PaperSize = intpapersize
r.Printer.Orientation = intorientation
r.Printer.TopMargin = intTop
r.Printer.BottomMargin = intBottom
r.Printer.LeftMargin = intLeft
r.Printer.RightMargin = intRight
End Sub

Public Sub SavePM(r As Report)
Dim RS As DAO.Recordset
Dim strPrtname As String
strPrtname = r.name
Set RS = CurrentDb.OpenRecordset("SELECT * FROM 页面 WHERE rptName='" & strPrtname & "'")
RS.Edit
RS("rpttop") = r.Printer.TopMargin / 567
RS("rptbot") = r.Printer.BottomMargin / 567
RS("rptleft") = r.Printer.LeftMargin / 567
RS("rptright") = r.Printer.RightMargin / 567
RS("papersize") = r.Printer.PaperSize
RS("Orientation") = r.Printer.Orientation
RS.Update
End Sub

在报表的close事件中调用Call SavePM(Reports(Me.name))

在报表打开前Call PrintMargin(Reports("报表名称"))
作者: xlonger    时间: 2006-8-20 04:13
以下是引用tmtony在2005-4-18 11:58:00的发言：



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


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


斑竹也遇到这个问题啊。我第一次要打印报表。所以也“研究”了一下。





你想要的都有。




















PrtDevMode 属性





        


        





使用 PrtDevMode 属性可以设置或返回“打印”对话框中为窗体或报表指定的打印设备模式信息。


注意   如果需要 PrtDevMode、PrtDevNames 和 PrtMip 属性的完整文档，推荐查阅 Win32 Software Development Kit。


设置


PrtDevMode 属性设置是一个 94 字节的结构，对应的是在 Win32 Software Development Kit 中定义的 DEVMODE 结构。有关 PrtDevMode 属性成员的详细内容，请参阅 Win32 Software Development Kit 。


PrtDevMode 属性使用下列成员。














成员


说明





DeviceName


一个最多为 32 字节的字符串，该字符串用于指定驱动程序所支持的设备名称。例如，如果 Hewlett-Packard LaserJet IIISi 是指定的打印机，则字符串为 “HP LaserJetIIISi”。每台打印机驱动程序都有唯一的字符串。





SpecVersion


一个 Integer 值，用于指定在 Win32 Software Development Kit 中 DEVMODE 结构的版本号。





DriverVersion


一个 Integer 值，用于指定打印机驱动程序开发者指定的打印机驱动程序的版本号。





Size


一个 Integer 值，用于指定 DEVMODE 结构的字节大小。（该值不包含特定设备数据的可选 dmDriverData 成员，该成员将遵循此结构）。如果应用程序只处理与驱动程序无关的部分数据，则可以使用此成员来求出此结构的长度，而不用理会版本的不同。





DriverExtra


一个 Integer 值，以字节为单位指定特定设备数据的可选 dmDriverData 成员大小。如果应用程序不使用设备特定的信息，可将此成员设为 0。





Fields


一个 Long 值，用于指定在 DEVMODE 结构中，哪些保留的成员已经被初始化。该值可以是特定常量的任一组合，或完全不是其中的任一值。有关可用常量的详细内容，请参阅[url=mkMSITStore:d:\Program%20Files\Microsoft%20Office%202000\Office\2052\acmain9.chm::/html/FieldsConstants.htm]字段成员常量[/url]。





Orientation


一个 Integer 值，用于指定纸张的打印方向。它可以是 1 （纵向）或者 2 （横向）。





PaperSize


一个 Integer 值，用于指定打印纸张的大小。如果设置此成员为 0 或 256，则纸张的长度和宽度分别由 PaperLength 和 PaperWidth 成员指定。否则，可以将 PaperSize 成员设为预定值。有关可用值的详细内容，请参阅[url=mkMSITStore:d:\Program%20Files\Microsoft%20Office%202000\Office\2052\acmain9.chm::/html/PaperSizeValues.htm]PaperSize 成员值[/url]。





PaperLength


一个 Integer 值，以 1/10 毫米为单位来指定纸张的长度。此成员将覆盖 PaperSize 成员所指定的纸张长度， PaperSize 成员为自定义纸张设置长度，或为使用不同大小纸张的点阵打印机等设备设置纸张长度。





PaperWidth


一个 Integer 值，以 1/10 毫米为单位来指定纸张宽度。此成员将覆盖 PaperSize 成员所指定的纸张宽度。


<TR vAlign=t
作者: xlonger    时间: 2006-8-20 04:15
以下是引用tmtony在2005-4-18 11:58:00的发言：


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

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



PrtDevMode 属性示例

以下示例使用 PrtDevMode 属性来检查用户定义的报表页大小。
  1. Type str_DEVMODE

  2.     RGB As String * 94

  3. End Type



  5. Type type_DEVMODE

  6.     strDeviceName As String * 16

  7.     intSpecVersion As Integer

  8.     intDriverVersion As Integer

  9.     intSize As Integer

  10.     intDriverExtra As Integer

  11.     lngFields As Long

  12.     intOrientation As Integer

  13.     intPaperSize As Integer

  14.     intPaperLength As Integer

  15.     intPaperWidth As Integer

  16.     intScale As Integer

  17.     intCopies As Integer

  18.     intDefaultSource As Integer

  19.     intPrintQuality As Integer

  20.     intColor As Integer

  21.     intDuplex As Integer

  22.     intResolution As Integer

  23.     intTTOption As Integer

  24.     intCollate As Integer

  25.     strFormName As String * 16

  26.     lngPad As Long

  27.     lngBits As Long

  28.     lngPW As Long

  29.     lngPH As Long

  30.     lngDFI As Long

  31.     lngDFr As Long

  32. End Type



  34. Sub CheckCustomPage(rptName As String)

  35.     Dim DevString As str_DEVMODE

  36.     Dim DM As type_DEVMODE

  37.     Dim strDevModeExtra As String

  38.     Dim rpt As Report

  39.     Dim intResponse As Integer

  40.     ' 在“设计”视图中打开报表。

  41.     DoCmd.OpenReport rptName, acDesign

  42.     Set rpt = Reports(rptName)

  43.     If Not IsNull(rpt.[b]PrtDevMode[/b]) Then

  44.         strDevModeExtra = rpt.[b]PrtDevMode[/b]   

  45.         ' 获取当前的 DEVMODE 结构。

  46.         DevString.RGB = strDevModeExtra

  47.         LSet DM = DevString

  48.         If DM.intPaperSize = 256 Then

  49.             ' 显示用户自定义大小。

  50.             intResponse = MsgBox("The current " _

  51.                 & "custom page size is " _

  52.                 & DM.intPaperWidth / 254 _

  53.                  & " inches wide by " _

  54.                 & DM.intPaperLength / 254 _

  55.                  & " inches long. Do you want " _

  56.                 & "to change the settings?", 4)

  57.         Else

  58.             ' Currently not user-defined.目前用户未自定义。

  59.             intResponse = MsgBox("The report " _

  60.                 & "does not have a custom page " _

  61.                 & "size. " _

  62.                 & "Do you want to define one?", 4)

  63.         End If

  64.         If intResponse = 6 Then

  65.             ' 用户需要更改设置。

  66.             ' 初始化字段。

  67.             DM.lngFields = DM.lngFields Or _

  68.              DM.intPaperSize Or DM.intPaperLength _

  69.                 Or DM.intPaperWidth

  70.             DM.intPaperSize = 256    ' Set custom page.

  71.             ' 提示输入长和宽。

  72.             DM.intPaperLength =_

  73.              InputBox("Please enter page length " _

  74.                 & "in inches.") * 254

  75.             DM.intPaperWidth =_

  76.              InputBox("Please enter page width " _

  77.                 & "in inches.") * 254

  78.             LSet DevString = DM        ' 更新属性。

  79.             Mid(strDevModeExtra, 1, 94) = DevString.RGB

  80.             rpt.[b]PrtDevMode[/b] = strDevModeExtra

  81.         End If

  82.     End If

  83. End Sub
复制代码

以下示例显示如何改变报表的打印方向。此示例将打印方向从纵向切换到横向，或是从横向切换到纵向，这取决于报表当前的打印方向。<RE><CODE>Sub SwitchOrient(strName As String)

    Const DM_PORTRAIT = 1

    Const DM_LANDSCAPE = 2

    Dim DevString As str_DEVMODE

    Dim DM As type_DEVMODE

    Dim strDevModeExtra As String

    Dim rpt As Report

    ' Opens report in Design view.

    DoCmd.OpenReport strName, acDesign

    Set rpt = Reports(strName)

    If Not IsNull(rpt.PrtDevMode) Then

        strDevModeExtra = rpt.PrtDevMode

        DevString.RGB = strDevModeExtra

        LSet DM = DevString

        DM.lngFields = DM.lngFields Or _

             DM.intOrientation    ' Initialize fields.

        If DM.intOrientation = DM_PORTRAIT Then

            DM.intOrientation = DM_LANDSCAPE

        Else

            DM.intOrientation = DM_PORTRAIT

        End If

        LSet De
作者: yangxiang    时间: 2007-6-11 23:51
以下是引用guoya在2006-4-16 18:45:00的发言：


在xp系统中利用print对象可以实现，转换为mde后使用正常

首先将页面边距和自定义纸张设置为两个表，

在模块中编写代码

Public Sub PrintMargin(r As Report)
Dim intTop As Integer '上边距
Dim intLeft As Integer '左边距
Dim intBottom As Integer '下边距
Dim intRight As Integer '右边距
Dim strPrtname As String '报表名称
Dim intpapersize As Integer '纸张大小
Dim intorientation As Integer '打印方向
strPrtname = r.name
intTop = DLookup("[RPTTOP]", "页面", "[RPTNAME]='" & strPrtname & "'") * 567
intBottom = DLookup("[RPTBOT]", "页面", "[RPTNAME]='" & strPrtname & "'") * 567
intLeft = DLookup("[RPTLEFT]", "页面", "[RPTNAME]='" & strPrtname & "'") * 567
intRight = DLookup("[RPTRIGHT]", "页面", "[RPTNAME]='" & strPrtname & "'") * 567
intpapersize = DLookup("[papersize]", "页面", "[RPTNAME]='" & strPrtname & "'")
intorientation = DLookup("[Orientation]", "页面", "[RPTNAME]='" & strPrtname & "'")
r.Printer.PaperSize = intpapersize
r.Printer.Orientation = intorientation
r.Printer.TopMargin = intTop
r.Printer.BottomMargin = intBottom
r.Printer.LeftMargin = intLeft
r.Printer.RightMargin = intRight
End Sub

Public Sub SavePM(r As Report)
Dim RS As DAO.Recordset
Dim strPrtname As String
strPrtname = r.name
Set RS = CurrentDb.OpenRecordset("SELECT * FROM 页面 WHERE rptName='" & strPrtname & "'")
RS.Edit
RS("rpttop") = r.Printer.TopMargin / 567
RS("rptbot") = r.Printer.BottomMargin / 567
RS("rptleft") = r.Printer.LeftMargin / 567
RS("rptright") = r.Printer.RightMargin / 567
RS("papersize") = r.Printer.PaperSize
RS("Orientation") = r.Printer.Orientation
RS.Update
End Sub

在报表的close事件中调用Call SavePM(Reports(Me.name))

在报表打开前Call PrintMargin(Reports("报表名称"))

为何要在报表预览的“页面设置”调用后要按"确定"才能改变？
作者: stone0823    时间: 2008-6-15 20:24
这个需要收藏，以前困扰过我，没解决



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3