How To Combine Two Template Into One File Without Messing The Page Setup? 追蹤

Hi, I have two bartender templates that I want to print alternately when a condition is met.

1st template contains details of the product and if the product weights at least 20KG, then 2nd Template should also be printed since it contains the heavy lfit logo.

Printing is done through an excel file where user can input the product and its details, then a VB script will be triggered when the user clicks the print button.

Theoretically, I think, the vb script below should work. But when I tried printing with it, it is not consistent in printing the 2nd template. Sometimes it prints the 2nd template and often times it doesn't.

Also, since the no. of copies is tied with one of the fields in the source file, I can't make it to print alternately. So I was thinking that if I can combine the two templates into one, my problem will be solved.

The VB script for printing looks like this:

'rsTemplate = Template to print

'rsPrinter = Printer IP address

'rsInputfile = CSV file that will be generated by the excel and is the source file of the two templates

'Bartender Label Printing
              lsCmd = "C:\Program Files\Seagull\BarTender Suite\BarTend.exe /f=" & rsTemplate(0) & " /prn=" & rsPrinter & " /d=" & rsInputfile & " /p /x"
              lnRet = Shell(lsCmd, vbMinimizedNoFocus)
             
             If lnRet = 0 Then
                Beep
                MsgBox "Label Printing Failed, Please try again!"
                Exit Sub
             Else
                Call Sleep(5 * 1000)
                MsgBox "Label Sent to Printer Successfully. Pls check Printer"
                If grossweight >= 20 Then
                    lsCmd = "C:\Program Files\Seagull\BarTender Suite\BarTend.exe /f=" & rsTemplate(1) & " /prn=" & rsPrinter & " /d=" & rsInputfile & " /p /x"
                    lnRet = Shell(lsCmd, vbMinimizedNoFocus)
                            If lnRet = 0 Then
                                Beep
                                MsgBox "Label Printing Failed, Please try again!"
                                Exit Sub
                            Else
                                Call Sleep(5 * 1000)
                                MsgBox "Label Sent to Printer Successfully. Pls check Printer"
                            End If
                End If
             End If

Attached are the templates and the csv data source file: