访问标签报告中标签的数量和位置在打印预览中正确显示当前记录，但在打印或导出中不正确

Question

I try to create a label report from sub-form on current record. Bellow are basic Subs.

Code Behind form button

Private Sub btnBlueLabels_Click()
Dim strWhere As String
Dim strDocName As String
strDocName = "rptBlueLabels"
strWhere = "AllocationAlphaName = """ & Me.frmSubAllocations.Form!AllocationAlphaName & """ AND AdvanceAllocationID = """ & Me.frmSubAllocations.Form!AdvanceAllocationID & """"
If IsNull(Me.frmSubAllocations.Form!AllocationLongName) Then
    MsgBox "No allocation records for this entity. The report will now close."
    Exit Sub
Else
    DoCmd.OpenReport strDocName, acViewPreview, , strWhere, acDialog

End If End Sub

Code behind Report

 Sub BDetailOnFormat(rpt As Report)
'Print a specified number of blank detail sections.
If intSkipPosition <> 0 Then
        rpt.MoveLayout = True
        rpt.NextRecord = False
        rpt.PrintSection = False
        intSkipPosition = intSkipPosition - 1
    End If End Sub


Sub BDetailOnPrint(rpt As Report)
       If intCopiesCout < intCopies Then
        rpt.NextRecord = False
        intCopiesCout = intCopiesCout + 1

    End If
End Sub

In the Print Preview everything looks good.

in the picture: print preview pop up window - three of used labels skipped and three same labels needs to be printed

When I try to print the Print Preview, it prints only one label (not three) and it located on the top and left position of a page.

Print output

Please, I am asking for advice! Thank you.

Answer 1

Move the code that prompts input boxes to set the public variables into the form procedure before the OpenReport line instead of in the report Open procedure. Declare the 3 variables in the module headers as Global and will be available to the form procedures. (My preference would be textboxes to input the Skip and Copies values then form code sets starting values for the global variables. Use textbox validation properties.) Do the validation in form so don't even call the report if inputs are not valid. Actually, put this code into a Sub that can be called by both buttons. The code currently in the buttons could be consolidated into this Sub.

This works going direct to printer. But PrintPreview to printer does not because the report events do not run again. This is an either/or situation - either to screen or to printer, can't do both.

Whether to screen or printer, report recordset is properly filtered.

Other Notes:

Missing Option Explicit in several modules.

BlueLabels and WhiteLabels modules are virtually indentical. Why not 1 generic module? They are not showing in Navigation Pane. Had to create new module (consolidated) and delete the old ones.

WhiteLabels Sub WDetailOnPrint procedure is missing the On Error statement.

The Exit Sub line in the If Then structures is not necessary. In fact, prevents execution of the Exit_Procedure: code. This code has Set Warnings True . Why? Warnings are never set false.

RedLabelSecond textbox shows 'invalid control source' error, had to reselect the field to clear that.