Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Falsche Seite wird gedruckt

Falsche Seite wird gedruckt
24.08.2017 23:24:09
Jonas
Hallo Leute,
grübel schon länger an dieser Stelle.
Problem ist dass nicht die Seite von Ausdruck gedruckt wird sondern die Seite von der das Makro gestartet wurde.
Wo liegt mein Fehler? :(
Sub Ausdruck()
Dim wksAusdruck As Worksheet
Set wksAusdruck = Workbooks("Ausdruck.xls").Worksheets("Seite9")
Application.ScreenUpdating = False
With wksAusdruck
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:=" _
Drucker3", Collate:=True
End With
End Sub

Liebe Grüße
Jonas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Falsche Seite wird gedruckt
24.08.2017 23:44:03
onur
wksAusdruck.Select
schon probiert?
AW: Falsche Seite wird gedruckt
25.08.2017 06:44:11
Werner
Hallo Jonas,
lass doch das ActiveWindow.SelectedSheets weg. So druckst du immer das momentan aktuelle Sheet, und das ist halt nun mal das, auf dem du dich gerade befindest, aus.
Public Sub Ausdruck()
Dim wksAusdruck As Worksheet
Set wksAusdruck = Workbooks("Ausdruck.xls").Worksheets("Seite9")
Application.ScreenUpdating = False
With wksAusdruck
.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:="Drucker3", Collate:=True
End With
End Sub
Gruß Werner
Danke Werner .. das war es! owT
25.08.2017 22:46:42
Jonas
.
Gerne u. Danke für die Rückmeldung. o.w.T.
26.08.2017 22:37:25
Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige