Office: Bestimmten Bereich drucken

Hallo zusammen,

ich verwende aktuell ein selbst-gebasteltes Sub, welches folgendes macht:

Mit aktuellen Tabellenblatt

- den Bereich B2:R94 markieren

- Druckeinstellungen wie - alles auf einer Seite darstellen
- Format: A4
- Seitenränder schmal
- Horizontal und vertikal zentrieren

- die Druckeinstellungen öffnen - hier muss der Anwender nur den richtigen Drucker auswählen (Es gibt ca. 10 Drucker im Netzwerk und viele Personen nutzen andere)

- und anschließend drucken.


Leider dauert das ewig (ca. 20s bis das Feld drucken geöffnet wird und einen anderen Drucker auswählen dauert auch ca. 2-3 Sekunden)


Code:

Gibt es eine Möglichkeit das Makro umzugestalten, damit es schneller geht?
Der Anwender sollte nur seinen Drucker auswählen, die Einstellungen sollte er nicht anrühren.

(P.S. Die Excel-Liste ist 36 MB schwer und auf dieses Makro wird auf fast jedem Tabellenblatt zugegriffen)


Vielen Dank im Voraus für jegliche Tipps!

Grüße
Hias

:)

 

mache es ohne VBA, lege einen Druckbereich fest, klick er auf Drucken, kann er doch den Drucker auswählen.

 

Hallo Hias,

teste mal:

Sub druck()
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintArea = "B2:R94"
.Zoom = False
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 1
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
End With
Application.PrintCommunication = True
'Hier wird erst das Feld Seite drucken geöffnet - wo man den richtigen Drucker auswählen kann
Application.Dialogs(xlDialogPrint).Show
End Sub

 

Guten Morgen,

sorry für die späte Antwort.

es wird ein bisschen schneller, leider dauert es immer noch zu lange (Das Öffnen der Druckeinstellungen sowie einen anderen Drucker auswählen dauert je über 10s)

In dem Excel-Sheet sind alle Menüleisten deaktiviert, darum wäre so ein Button sehr hilfreich gewesen.

Ich habe jetzt den Button umbenennt in: "Druckeinstellungen festlegen",
in welchen ich die Menüleisten wieder aktiviere und alle Einstellungen setze.

Dann kann man manuell auf Datei --> Drucken klicken.


Viele Grüße
Hias