- #1
O
Oli Bender
Guest
Hallo zusammen,
ich habe ein Makro geschrieben, dass mir eine Rechnung 2 mal ausdrucken soll, einmal mit dem Vermerk Kopie, den ich als Textfeld eingefügt habe und einmal ohne diesen Vermerk. Wenn ich das Makro ganz normal über Extras, Makros, Makro ausführen benutze, funktioniert das auch, ebenso über eine benutzerdefinierte Schaltfläche sowie eine Schaltfläche erstellt über die Formular Symbolleitse.
Wird die Schaltfläche jedoch über die Toolbox erstellt, druckt er zwei mal die Kopie aus. Kann mir jemand sagen, woran das liegt? Anbei der Code. Vielen Dank schon mal im voraus.
Private Sub RechnungDrucken_Click()
'
' RechnungDrucken Makro
' Makro am 17.11.2005 von aufgezeichnet
'
'
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 6#, 204#, _
139.5, 43.5).Select
Selection.ShapeRange.Line.Visible = msoFalse
Selection.Characters.Text = Kopie
With Selection.Characters(Start:=1, Length:=5).Font
.Name = Arial
.FontStyle = Fett
.Size = 22
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.HorizontalAlignment = xlCenter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.Delete
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.CommandBars(Drawing).Visible = False
End Sub
ich habe ein Makro geschrieben, dass mir eine Rechnung 2 mal ausdrucken soll, einmal mit dem Vermerk Kopie, den ich als Textfeld eingefügt habe und einmal ohne diesen Vermerk. Wenn ich das Makro ganz normal über Extras, Makros, Makro ausführen benutze, funktioniert das auch, ebenso über eine benutzerdefinierte Schaltfläche sowie eine Schaltfläche erstellt über die Formular Symbolleitse.
Wird die Schaltfläche jedoch über die Toolbox erstellt, druckt er zwei mal die Kopie aus. Kann mir jemand sagen, woran das liegt? Anbei der Code. Vielen Dank schon mal im voraus.
Private Sub RechnungDrucken_Click()
'
' RechnungDrucken Makro
' Makro am 17.11.2005 von aufgezeichnet
'
'
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 6#, 204#, _
139.5, 43.5).Select
Selection.ShapeRange.Line.Visible = msoFalse
Selection.Characters.Text = Kopie
With Selection.Characters(Start:=1, Length:=5).Font
.Name = Arial
.FontStyle = Fett
.Size = 22
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.HorizontalAlignment = xlCenter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.Delete
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.CommandBars(Drawing).Visible = False
End Sub