Verknüpfte Anhänge drucken (Artikelstamm)

Hallo zusammen,

Wir versuchen in unserem Wareneingang bei der Einbuchung bestimmter Artikel, PDF-Anhänge im Artikelstamm dieser Artikel gleichzeitig mit auszudrucken, damit die Mitarbeiter aus dem Wareneingang z.B. auf besondere Prüfvorschriften hingewiesen werden.

In der Printdefinition des Belegs habe ich dazu ein zusätzliches Layout erfasst, dass die Anhänge im Artikelstamm der jeweiligen Artikel mit ausdrucken soll. 

Mein Problem ist, dass dieses Skript jeweils nur den Anhang des ersten Artikels im Beleg druckt. Alle anderen Anhänge im Artikelstamm der restlichen Artikel werden nicht abgerufen.

Weiß jemand woran das liegen könnte?

So sieht das Skript im GenerateScript aus:

Danke für eure Hinweise im Voraus! :)

If LD.QueryData("SELECT T1.[QryGroup22] FROM OITM T1 WHERE T1.[ItemCode] = '"+advancedDataBand1("ItemCode").ToString+"'") = "Y" And GetData("LD.Par.FormType")= "143" Then

If Engine.IsDoublePass And GetData("LD.Par.Preview")="N" Then
If LD.QueryData("Select T0.[Attachment] FROM OITM T0 WHERE T0.[itemcode] = '"+advancedDataBand1("ItemCode")+"'")<>"" Then
Dim p As System.Diagnostics.Process = New System.Diagnostics.Process()
p.StartInfo.FileName = "\\Srvsbs2011\SAP_Daten\Attachments\" + advancedDataBand1("ItemCode") + "_QA" + ".pdf"
p.StartInfo.Verb = "print"
p.StartInfo.CreateNoWindow = True
p.Start()
p.Close()
End If
Else If Engine.IsDoublePass And GetData("LD.Par.Preview")="Y" Then
If LD.QueryData("Select T0.[Attachment] FROM OITM T0 WHERE T0.[itemcode] = '"+advancedDataBand1("ItemCode")+"'")<>"" Then
Dim p As System.Diagnostics.Process = New System.Diagnostics.Process()
p.StartInfo.FileName = "\\Srvsbs2011\SAP_Daten\Attachments\" + advancedDataBand1("ItemCode") + "_QA" + ".pdf"
p.StartInfo.CreateNoWindow = True
p.Start()
p.Close()
End If
End If

Else
End If