Unverschämt ? Gleich 3 Fragen zum Druck

Ich möchte drei Tabellen drucken, wobei ich in Tabelle 2 in zwei bennannten Bereichen durch Farbänderung, hier gelb, die Schrift unlesbar mache. Nach Druck soll dann wieder alles in Normalschrift erscheinen.
- Bei meiner Variante erreiche ich aber nur Bereich Text2. Wie also auch Text 1.
- Wie erreiche ich, dass das Dialogfeld Speichern unter dem Nutzer zur Auswahl sichtbar wird und
erst nach OK das Makro weiter läuft.
- Was bedeutet Collate


Private Sub CheckBox1_Click()'
Sheets("Tabelle2").Select
Application.Goto Reference:="Text1"
Application.Goto Reference:="Text2"
With Selection.Font
.ColorIndex = 22
End With
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("Tabelle1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Tabelle2").Select
Application.Goto Reference:="Text1"
Application.Goto Reference:="Text2"
With Selection.Font
.ColorIndex = 1
End With
Range("A1").Select
Sheets("Tabelle1").Select
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tt() Set Bereich = Union(Range("Text1"), Range("Text2")) Bereich.Font.ColorIndex = 22 'HIER Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select Sheets("Tabelle1").Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ' Bereich.Font.ColorIndex = 1 'HIER Worksheets("Tabelle1").Range("A1").Select Set Bereich = Nothing End Sub

Application.Goto Reference:="Text1" With Selection.Font .ColorIndex = 22 End With Application.Goto Reference:="Text2" With Selection.Font .ColorIndex = 22 End With Mot Goto wählst Du den Bereich an, der mit dem Namen (hier Text1) definiert ist. Dabei wird dieser Bereich auch markiert. Mit dem nächsten Goto geht diese 1. Markierung verloren und der 2. Bereich wird markiert. Gruß von Luschi aus klein-Paris

Sub tt() Set Bereich = Union(Range("Text1"), Range("Text2")) Bereich.Font.ColorIndex = 22 Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select Sheets("Tabelle1").Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ' Bereich.Font.ColorIndex = 1 Worksheets("Tabelle1").Range("A1").Select Set Bereich = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Unverschämt ? Gleich 3 Fragen zum Druck

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Unverschämt ? Gleich 3 Fragen zum Druck

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread