andere möglichkeit mehrere A-Blätter zu markieren
09.08.2003 10:22:08
Peter T
über eine Druckauswahlbox (UserForm) stelle ich mehrere A-Blätter zur Verfügung die gedruckt werden können, diese sollen dann mit dem unten abgefügten Code ALLE auf einmal (damit z.B. bei PDF ein Dokument) gedruckt werden, und die Startseite nicht verlassen werden (zur Anzeige) da die anderen Blätter unsichtbar, bei meinem Code bleiben auch andere Seiten markiert und würden so mitgedruckt, außderem wir immer die letzt gewählte Seite zum Drucken angezeigt.
Weiss hier jemand eine andere Lösung ??
Danke, Peter
Private Sub OKBut_Click()
Dim iloop As Integer
Dim DArray As String
Sheets().Select False
For iloop = 1 To Druckauswahlbox.ListCount
If Druckauswahlbox.Selected(iloop - 1) = True Then
Sheets(Druckauswahlbox.List(iloop - 1, 0)).Select False
Druckauswahlbox.Selected(iloop - 1) = False
End If
Next
Application.Dialogs(xlDialogPrint).Show
End Sub
Anzeige