Excel Barcode Issues

dfolzenlogen

New Member
Joined
Oct 18, 2009
Messages
36
I have 2 users both accessing the same Excel file. One user is able view barcodes which look like

:
Barcode - not split.JPG


The second user sees the following:
Barcode - split pg 1.JPG

Barcode - split pg 2.JPG



It's the same file. The barcodes are generated via Excel vba. What they see is how the file prints. The user whose barcode splits is able to capture the barcode on one page if she prints manually using Microsoft Print to PDF but that is not feasible as part of our archiving and file naming process which is automated.

The routine for printing and naming the file is as follows:


VBA Code:
 'Save the selected tabs out into individual PDFs
    For Each ws In ThisWorkbook.Worksheets
        If ws.visible = xlSheetVisible Then
            If Trim(UCase(ws.Name)) = "TRANSFER" Then
                Application.StatusBar = "Saving Transfer worksheet..."
                ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFullPath & strSubFolder & "  – (2) Transfer.pdf", _
                    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
            ElseIf Trim(UCase(ws.Name)) = "EXHIBIT A" Then
                If Trim(ws.Range("rngExhibitHeader").Offset(1, 0)) <> "" Then
                    Application.StatusBar = "Saving Exhibit A worksheet..."
                    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFullPath & strSubFolder & "  – (3) Exhibit A.pdf", _
                        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
                End If
            ElseIf Trim(UCase(ws.Name)) = "EXHIBIT A (2)" Then
                If Trim(ws.Range("rngExhibit2Header").Offset(1, 0)) <> "" Then
                    Application.StatusBar = "Saving Exhibit A (2) worksheet..."
                    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFullPath & strSubFolder & "  – (3) Exhibit A.pdf", _
                        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
                End If
            ElseIf Trim(UCase(ws.Name)) = "BARCODES" Then
                Application.StatusBar = "Saving Barcode worksheet..."
                ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFullPath & strSubFolder & "  – (1) Barcode.pdf", _
                    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
            ElseIf Trim(UCase(ws.Name)) = "DO" Then
                Application.StatusBar = "Saving DO worksheet..."
                ws.Range("BA1:BZ62,DA1:DZ62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFullPath & strSubFolder & _
                    "  – (4) DO (" & strToOwner & ").pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False
            End If
        End If
    Next ws
   
    'Save out each additional DO worksheet (as needed)
    For Each ws In ThisWorkbook.Worksheets
        If ws.visible = xlSheetVisible Then
            If Trim(UCase(ws.Name)) Like "DO*" And Trim(UCase(ws.Name)) <> "DO" Then
                Application.StatusBar = "Saving " & ws.Name & " worksheet..."
                ws.Range("BA1:BZ62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFullPath & strSubFolder & "  – (" & x & ") " _
                    & Trim(UCase(ws.Name)) & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False
                x = x + 1
            End If
        End If
    Next ws

Any suggestions? Thanks.
 

Attachments

  • 1586442679640.png
    1586442679640.png
    3.7 KB · Views: 13

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.
To all:
This has been resolved. The culprit appears to be that one user was using 32-bit Excel (the one that was working) and the other was using 64-bit Excel.
Thanks.
 
Upvote 0

Forum statistics

Threads
1,223,228
Messages
6,170,871
Members
452,363
Latest member
merico17

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top