ich stehe leider vor einem kleinem Problem. Ich habe in jeder Zeile eine Barcode (als Bild ), welchen ich gern Zeile pro Zeile drucken möchte.
Allerdings werden die Bilder nicht mitgedruckt. Wenn ich in die Zellen anstatt der Bilder Werte schreibe, funktioniert das Makro problemlos. Der Druck für die Bilder ist in den Eigenschaften der jeweiligen Bilder auch aktiviert. Allerdings erhalte ich immer leere Ausdrucke.
Der Code sieht wie folgt aus:
Sub CommandButton1_Click()
Dim Anf_Wert As Integer
Anf_Wert = TextBox1.Value
Dim i As Integer
Dim End_Wert As Long
End_Wert = TextBox2.Value
For i = Anf_Wert To End_Wert
ActiveSheet.PageSetup.PrintArea = ("A" & i & ":" & "C" & i)
ActiveSheet.PrintOut Copies:=1
Next i
Unload Me
End Sub
Kann mir jemand bitte weiterhelfen?
Vielen dank vorab.
MfG René