アクセスレポートの印刷物（またはPDF）に印刷プレビューに表示される情報がありません

Question

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出力

Answer 1

は解決策を見つけました。 pageHeaderSection_Printサブ を呼び出すと、レポートが印刷用にフォーマットされているときにiLine変数をリセットする必要がありました。