Führende Null wird nicht gedruckt
Josef
Mit unten stehendem Makro wird der Inhalte einer ListBox1 in einer UF in ein neues Tabellenblatt kopiert und ausgedruckt.
In der zweiten Spalte in der ListBox1 stehen zweistellige Zahlen und zwar mit einer führenden Null.
Beim Ausdruck erhalte ich jedoch nur eine einstellige Zahl. Gibt es bitte eine Möglichkeit, dass beim Ausdruck auch die Zahl zweistellig sichtbar ist?
Private Sub CommandButton3_Click()
Dim PrintTab As Worksheet
Dim myAr
Dim Name1
myAr = ListBox1.List
Name1 = ComboBox2.Value
Set PrintTab = Worksheets.Add
PrintTab.Range("A1").Resize(UBound(myAr, 1) + 1, UBound(myAr, 2)) = myAr
PrintTab.Cells.EntireColumn.AutoFit
PrintTab.PageSetup.CenterHeader = "Laborgemeinschaft" & " " & Name1
PrintTab.PageSetup.Orientation = xlLandscape
PrintTab.PrintOut
Application.DisplayAlerts = False
PrintTab.Delete
Application.DisplayAlerts = True
End Sub
Danke
Josef
Anzeige