Issues Printing Images Using Auto Print VBA

[pure vito]

Hi Everyone,

I'm hoping my issue might be some sort of setting but it's not something I can resolve myself,

I use a macro to print my Labels normally this work fine without issue, but now I have added images,

The label is populated by VLOOKUP's the part number is entered into A1 and the label is populated with information and again this works fine I can Auto print a number of labels without issue,

So now I have also linked images to the part numbers and they display without issue I can also print them individually without issue, but when I run the auto macro the images don't come through on the print.

The macro loops through a list of parts populating the label with the information and image before each print,

Sorry if this is to vauge in short everthing seems to work but when the lables are printed they are missing the image

Here is the VBA I'm using to print it's a little messy

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Worksheets("Bulk LAB").Visible = True
Sheets("Bulk LAB").Select
ActiveSheet.Range("I11:K11") = TextBox1.Text


 Sheets("AutoPrint").Select
 Columns("M:Q").Select
    Range("Q1").Activate
    Selection.EntireColumn.Hidden = False
 
    Range("N1:P1").Select
    Selection.AutoFilter
    Range("N2").Select
    ActiveSheet.Range("$N$1:$P$50").AutoFilter Field:=1, Criteria1:="<>"
    Range("O2:P2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
   
    Worksheets("Print list").Visible = True

    Sheets("Print list").Select
    ActiveSheet.Cells(2, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
'Sub PrintLogs()
   
    
    Dim lastRow As Long, i As Long
    Dim ws As Worksheet
    Set ws = Sheets("Print list")
    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    With ws
        For i = 2 To lastRow
            If Len(Trim(.Range("A" & i).Value)) <> 0 Then _
            .Range("J" & i).Formula = "Printed"
   .Range("A" & i).EntireRow.Copy
    Sheets("Bulk LAB").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Bulk LAB").PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Next i
    End With

Sheets("Print list").Select
 ActiveSheet.Range("A2:J50000").Select
    Selection.ClearContents
  
   
    Sheets("AutoPrint").Select
    ActiveSheet.Range("$N$1:$P$1597").AutoFilter Field:=1
       Columns("N:P").Select
    Range("P1").Activate
    Selection.EntireColumn.Hidden = True
   
    Range("A1").Select
    UserForm1.Hide
    Worksheets("Print list").Visible = False
    Worksheets("Bulk LAB").Visible = False
   Application.ScreenUpdating = True
   
End Sub