Printing Pages Via A Loop Printing Beyond What is Defined By The Loop

[Ark68]

Below is code that I use to print out a dynamic print range ...

Sub printme_f()
    'define fields range
    rwtopLeft = Application.WorksheetFunction.VLookup("F", ws_lists.Range("X3:AD10"), 3, False)
    coltopLeft = Application.WorksheetFunction.VLookup("F", ws_lists.Range("X3:AD10"), 4, False)
    rwbtmRight = Application.WorksheetFunction.VLookup("F", ws_lists.Range("X3:AD10"), 5, False) + 43
    colbtmRight = Application.WorksheetFunction.VLookup("F", ws_lists.Range("X3:AD10"), 6, False) ' + 55
    
    Set fldrng = ws_front.Range(ws_front.Cells(rwtopLeft, coltopLeft), ws_front.Cells(rwbtmRight, colbtmRight))

    With ws_front.PageSetup
        ws_front.Unprotect
        .PrintArea = "J" & rwtopLeft & ":BM" & rwbtmRight
        pgnums = .Pages.Count
        ws_front.Protect
    End With
    ui1 = InputBox("Select:" & Chr(13) & "    (1)   SAVE Only" & _
        Chr(13) & "    (2)   PRINT Only" & _
        Chr(13) & "    (3)   PRINT & SAVE", "Output Selection")
    
    If ui1 = "1" Then
        savemef
    ElseIf ui1 = "2" Then
        ws_front.PrintOut
        ui1 = MsgBox("Pages printed: " & pgnums & Chr(13) & "Retrieve printed pages and return to printer tray, face down, top into machine." & Chr(13) & _
            "Press OK to launch print the reverse side of the signature sheets.", vbQuestion + vbOKCancel, "PRINT COMMAND")
        If ui1 = vbOK Then
            With Worksheets("Fld_Backside").PageSetup
                Worksheets("Fld_Backside").Unprotect
                .PrintArea = "A1:BC45"
                Worksheets("Fld_Backside").Protect
            End With
            ws_front.Protect
            For pg = 1 To pgnums
                With Worksheets("Fld_Backside")
                    .Visible = True
                    .PrintOut
                    .Visible = False
                End With
            Next pg
        End If
    Else
        ws_front.PrintOut
        ui1 = MsgBox("Pages printed: " & pgnums & Chr(13) & Chr(13) & "Retrieve printed pages and return to printer tray, face down, top into machine." & Chr(13) & Chr(13) & _
            "Press OK to launch print the reverse side of the signature sheets.", vbQuestion + vbOKCancel, "PRINT COMMAND")
        If ui1 = vbOK Then
        'Stop
            With Worksheets("Fld_Backside").PageSetup
                Worksheets("Fld_Backside").Unprotect
                .PrintArea = "A1:BC45"
                Worksheets("Fld_Backside").Protect
            End With
            ws_front.Protect
            For pg = 1 To pgnums
                With Worksheets("Fld_Backside")
                    .Visible = True
                    .PrintOut
                    .Visible = False
                End With
            Next pg
        End If
        savemef
    End If
    
End Sub

In my testing, suppose the user selects '3' to print the print range and then save that range as a new workbook. The print component seems to be giving me problems.
The print range appears to be defined properly. It results in 12 pages (pgnums) of the defined print area being printed. The user then prepares to print the static contents of another worksheet (worksheet "Fld_Backside" range("A1:BC45") onto the reverse side of the 12 sheets previously printed. The print range for fld_backside range "A1:BC45" is one page.

When the user presses ok to commence the printing to the back side, it prints as expected on the reverse of the previously printed pages, however, it prints an additional 12 pages of "Fld_Backside". I figured the loop would only print 12 pages, but it prints 24.

Can anyone suggest why it's printing twice as many as expected?