bewegliche CommandButtons
10.10.2004 14:35:27
marc
ich habe mir ein kleines Informationsprogramm erstellt.
In den Mappen stehen CommandButtons als navigations Objekte.
Der Enduser kann mit Hilfe eines CommandButtons die Werte ausdrucken.
Es funktioniert alles Fehlerfrei.
Wurde der Druckbefehl beendet rotieren alle CommandButtons von der Mitte nach
links und bleiben dort stehen.Ich kann alle anderen cmd anklicken und die Buttons stehen da wo ich sie gesetz habe,sobald ich aber den cmd Button mit dem
Druckbefehl anklicke machen alle anderen cmd Buttons einen Satz nach links.
Das alles unter XP.Prof und Office XP.
Privat arbeite ich mit XP.Home E. und Office 2003 und alles ist in Ordnung.
Was ich noch bemerkt habe, wenn ich die CommandButtons unter XP.Prof und Office XP. entferne und die normalen Schaltflaechen benutze,dann ist alles o.k kein Buttons springen.
Das alles hat nichts mit dem Druckbereich zu tun.Egal wo der cmdButton mit dem
Druckbefehl steht.
Kann mir jemand weiterhelfen ?
Hier noch der Druckbefehl der unter Win.NT.4,0/Office.97 und XP.Home/Office.2003
keinen Fehler verursacht. Ist Win.XP.Prof und Office.XP gegen den unten stehenden Code alergisch ?
-
marc.
Private Sub cmdPrint_Click()
Dim i As Integer
On Error Resume Next
Worksheets("Ges_List").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_List").PageSetup.BlackAndWhite = True
ActiveSheet.PrintOut Copies:=1
Application.CutCopyMode = False
Range("J2").Select
End Sub