Label.Visible=True oder False geht, geht nicht
ing.grohn
aus einer Userform rufe ich eine Sub DruckBeratungshilfe1 auf.orm
in der Userform ist das Label25 auf visible=false gesetzt.
Die Sub wird wie folgt aufgerufen:
Private Sub CommandButton1_Click()
Beratungshilfeantrag2.Label25.Visible = True 'diese Zeile klappt nicht
DruckBeratungshilfe1
End Sub
Private Sub DruckBeratungshilfe1()
'
' hier werden die Elemente eines Word-Formulars aus der Userform gefüllt (klappt)
'
DocNeu.Application.DisplayAlerts = wdAlertsNone
DocNeu.Application.PrintOut _
Filename:="", _
Range:=wdPrintRangeOfPages, _
Item:=wdPrintDocumentContent, _
Copies:=1, _
Pages:="1-1"
Beratungshilfeantrag2.Label25.Visible = False 'diese Zeile klappt auch
MsgBox ("Bitte die ausgedruckte Seite umdrehen!")
Beratungshilfeantrag2.Label25.Visible = True 'diese Zeile klappt nicht!
DocNeu.Application.PrintOut _
Filename:="", _
Range:=wdPrintRangeOfPages, _
Item:=wdPrintDocumentContent, _
Copies:=1, _
Pages:="2-2"
Beratungshilfeantrag2.Label25.Visible = False 'k. A.
MsgBox ("der Beratungshilfeantrag wurde gedruckt, weiter mit OK")
Beratungshilfeantrag2.CommandButton4.SetFocus 'klappt auch wieder !!
ObjWord.ActiveDocument.Close (wdDoNotSaveChanges)
ObjWord.Application.Quit
Set DocNeu = Nothing
Set ObjWord = Nothing
End Sub
(private steht nur hier vor der Sub!)
nach Beendigung dieser Sub wird in der Userform ein anderer CommandButton ohne Probleme aktiviert (sieht man ja).
Auf meinem Rechner funktioniert diese Geschichte problemlos (Win 7).
Auf dem Rechner meiner Frau (kleinerer Speicher, Win XP) funktioniert das nicht! (lediglich wenn ich das
Label in der Userform auf visible=true setze, wird das Label für die erste Druckseite sichtbar und dann ausgeschaltet
aber nicht wieder an nach der MSGbox("Seite umdrehen).
Warum läuft das und dann wieder nicht?
Eine Antwort wäre nett und hilfreich. Ich weiß nicht was da falsch läuft.
Ich bedanke mich und verbleibe mit freundlichen Grüßen
Albrecht
Anzeige