Access报告打印输出(或PDF)缺少打印预览中可见的信息

#Access报告打印输出(或PDF)缺少打印预览中可见的信息| 来源: 网络整理| 查看: 265

我添加了VBA到我的报告中，以包括发票中的空白行，这是从here获得的代码。打印预览显示的是我想要的空白行，但当我想将其导出为PDF或打印报表时，它会显示不可见的文本(而不是仅显示在空白行中)。我编辑了原始代码以重置增量编号，但这只在从报表视图切换到打印预览时起作用(这个问题最初也是在这里出现的，我认为打印或导出它时也会重新查询报表，因此问题将得到解决，但无济于事)。

这是给我提供空行的代码：

Option Compare Database Option Explicit Const iLines As Integer = 15 Private iTotal As Integer ' code added to make count able to reset on report load Private iLine As Integer Private Sub Report_Open(Cancel As Integer) ' get total record count iTotal = DCount("*", "OrderLine", "fkOrderID = " & TempVars!tempOrderID) ' code added to reset count iLine = 0 End Sub Private Sub Details_Format(Cancel As Integer, _ FormatCount As Integer) ' code added to reset visibility Me!Item.Visible = True Me!qty.Visible = True Me!CalcPrijs.Visible = True Me!TotPrijs.Visible = True ' increment iLine on each detail format iLine = iLine + 1 If iLine < iTotal Then ' do nothing ... print as usual ElseIf iLine = iTotal Then ' if there are more lines to print, set the ' NextRecord property to false, preventing ' the report from exiting prematurely If iLine < iLines Then Me.NextRecord = False Else ' changed this to make text invisible instead of white Me!Item.Visible = False Me!qty.Visible = False Me!CalcPrijs.Visible = False Me!TotPrijs.Visible = False ' prevent report from advancing past last row ' until all of blank lines has have printed If iLine < iLines Then Me.NextRecord = False End If End Sub

我是不是漏掉了什么？我希望一个好看的打印预览能给我一个好看的打印输出。有没有一种方法可以在不丢失打印输出数据的情况下获得额外的空白行？我添加了一些图片来阐明我想要什么。

打印预览

PDF输出

【本文地址】

公司简介

联系我们