Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganze Arbeitsmappe drucken per Schaltfläche

Ganze Arbeitsmappe drucken per Schaltfläche
30.10.2003 12:20:42
Christian M
Hallo

ich würde mir gerne die erforderlichen Schritte über Menue drucken, "ganze Arbeitsmappe drucken"
ersparen. Lieber wäre mit eine Schaltfläche auf dem 1. Blatt oder letzten Blatt. Das reguläre Druck-
Menue sollte dann gesperrt sein.

Gibt es hier eine elegante Lösung.

Würd mich freuen, wenn mir jemand helfen könnte

Grüsse

Christian

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

Betreff
Datum
Anwender
Anzeige
AW: Ganze Arbeitsmappe drucken per Schaltfläche
30.10.2003 13:19:54
Andi_H
Hi Christian,
diesen Code in ein Modul und dann das Makro MappeDrucken starten oder in einen Button und den Button mit diesem Code hinterlegen: Call MappeDrucken


Sub MappeDrucken()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim i,x as Integer
i = Worksheets.Count
For x = 1 To i
Workbooks(x).Activate
For Each ws In ActiveWorkbook.Worksheets
ws.Select
ws.PrintOut
Next
Next
Application.ScreenUpdating = True
End Sub

AW: Ganze Arbeitsmappe drucken per Schaltfläche
30.10.2003 13:21:31
Andi_H
Hi nochmal,

hab gard festgestellt das ich dir zuviel Code gegeben hab, eigentlich reicht dieser TEil:


Sub MappeDrucken()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim i as Integer
i = Worksheets.Count
For Each ws In ActiveWorkbook.Worksheets
ws.Select
ws.PrintOut
Next
Application.ScreenUpdating = True
End Sub


der erste Code druckt alle sheets aller geöffneten Arbeitsmappen

Gruß
Andi
Anzeige
Wer lesen kann ist klar im Vorteil ...
30.10.2003 13:29:52
Andi_H
So, Button Drucken sperren hatte ich wohl überlesen:
diesen Code in DieseArbeitsmappe
Druckfunktion ist dann nicht gesperrt sondern druckt automatisch alle sheet


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim i, x As Integer
i = Worksheets.Count
For Each ws In ActiveWorkbook.Worksheets
ws.Select
ws.PrintOut
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


soll der Druckbutton gesperrt werden und du willst über butto nausdrucken würde so aussehen:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub


und diesen Code in den Button:
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim i, x As Integer
i = Worksheets.Count
For Each ws In ActiveWorkbook.Worksheets
ws.Select
ws.PrintOut
Next
Application.ScreenUpdating = True
Application.EnableEvents = True

hoffentlich hab ich jetzt nicht wieder was vergessen,

Gruß

Andi
Anzeige
AW: Ganze Arbeitsmappe drucken per Schaltfläche
30.10.2003 13:57:25
Christian
Hi Andy

danke, du hast mir sehr geholfen, klappt prima!

Ich will dich ja nicht überstrapazieren, aber gibt es eine Möglichkeit, dass nach öffen einer Arbeitsmappe eine bestimmte
Zelle (E9) auf dem 1. Blatt aktiviert wird, wobei aber Blattname und auch Anzahl Blätter variabel ist. Mit entsprechendem
abspeichern ist mir klar, ab vielleicht geht es auch anders.

Vielen Dank und Grüße

Christian
AW: Ganze Arbeitsmappe drucken per Schaltfläche
30.10.2003 14:26:28
Andi_H
Hi Christian,

klar geht das, diesen Code in DieseArbeitsmappe:


Private Sub Workbook_Open()
sheets(1).cells(9,5).select
End Sub


sheets(1) ist das erste Sheet in der Mappe, egal welchen Namen es hat
die Zelle kannst du selbst bestimmen cells(Zeile,SPalte).select

Gruß aus Regensburg,

Andi
Anzeige
AW: Ganze Arbeitsmappe drucken per Schaltfläche
30.10.2003 15:23:57
Christian
Hi Andy

herzlichen Dank, klappt prima!

Gruss: Christian

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige