cmd Buttons rotieren
06.10.2004 12:09:56
marc
ich habe eine Mappe mit Command Buttons.
Ein Button der fuer den Druckbefehl zustaendig ist verursacht einen Fehler.
Sobald der Button gedrueckt wird verstellen sich alle anderen Buttons nach links.Kann ich die Buttons verankern ? wenn ja, dann wie ?
Oder kommt das Betriebssystem XP Prof. mit dem VBA-Code nicht zu Recht ?
marc
Private Sub cmdPrint_Click()
Dim i As Integer
On Error Resume Next
Worksheets("Ges_Liste").Activate
Range("$B$1:$J$107").Select
i = MsgBox("Gedruckt wird Seite 1. bis 3. als BlackAndWhite FORMAT ", vbExclamation, "Druckbereich wurde festgelegt! ")
ActiveSheet.PageSetup.PrintArea = "B$1:$J$107"
Worksheets("Ges_Liste").PageSetup.BlackAndWhite = True
ActiveSheet.PrintOut Copies:=1
Application.CutCopyMode = False
Range("J2").Select
End Sub
Anzeige