Отсутствует информация о распечатке (или 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, когда отчет отформатирован для печати, теперь все работает так, как я хотел.