Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausdruck auf ganze Seite

Ausdruck auf ganze Seite
15.10.2003 13:08:24
Madman
Moin Leute!

Habe folgendes Problem:

Ich will einen mit

ActiveSheet.PageSetup.PrintArea = "$A$2:$n$46"

festgelegten Bereich ausdrucken(und danach den Bereich wechseln und dies wiederholen, um mehrere Diagramme auf einer Seite zu drucken)!
Mit PageBreaks geht es irgendwie nicht,deshalb diese Lösung!
Allerdings druckt Excel die Diagramme nicht auf Blattgröße, sondern ziemlich klein!
Kann ich den Befehl

ActiveSheet.PrintOut

irgendwie so erweitern, daß die Diagramme an die Seite angepaßt werden?
Oder weiß jemand eine andere Lösung?

MfG Madman-

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausdruck auf ganze Seite
15.10.2003 13:41:25
Jörg Gradert
Hallo,
wie wär es mit Menü Datei, Seite einrichten, Papierformat, Anpassen 1Seite Breit und 1Seite hoch.
Ich bin nicht gut im Programmieren von VBA, habe es darum als Makro aufgezeichnet, interessant sind die Fit to Pages Zeilen, der Rest kann vielleicht weggelassen werden.


Sub Makro1()
' Makro1 Makro
' Makro am 15.10.2003 von Jörg aufgezeichnet
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub


Gruss Jörg
Anzeige
Klappt leider auch nicht...
15.10.2003 13:55:37
Madman
Hallo Jörg,

Die Idee ist gut, klappt aber leider auch nicht, der druckt dann das gerade selektierte Diagramm aus und nicht den Bereich,schade!

Trotzdem Danke,

Madman
AW: Klappt leider auch nicht...
15.10.2003 14:05:05
RAnton
Hallo Jörg,
das mit dem FittoPage ist zwar ne gute Idee, klappt aber nur, von groß nach klein. Aufblähen, wie du es magst kann Excel nicht.

Gruß
RAnton
AW: Klappt leider auch nicht...
15.10.2003 14:28:36
Jörg Gradert
Hallo RAnton,
danke für den Hinweis es ist mir soeben klar geworden.

Hallo Madman,
schau dir doch mal im von mir aufgezeichneten Makro die Zeile .Zoom an
probier mal welchen Wert Du brauchst, z.B.

.Zoom = 140

Druckt den Printrange mit 1,4 facher Vergrösserung aus (140%)

Gruss Jörg
Anzeige
Klappt wieder nicht...
15.10.2003 14:41:18
Madman
Hallo Jörg,

Klappt leider wieder nicht, der druckt dann wieder nur 1 Diagramm...

MfG Madman
AW: Klappt wieder nicht...
15.10.2003 14:50:55
Jörg Gradert
Hallo Madman,
damit der eingestellte Printrange gedruckt wird, dürfen die Diagramme nicht selektiert sein. Der Fokus muss auf dem Tabellenblatt liegen, nicht auf dem Diagramm.
Dieser Umstand lässt sich leicht nachvollziehen indem Du in die Tabelle klickst und auf Druckbildvorschau gehst und dann mal ein Diagramm auswählst und wieder Druckbildvorschau auswählst.
Ich habe festgestellt, dass ein angeklicktes Diagramm automatisch eine Seite gross ausgedruckt wird.

Gruss Jörg
Anzeige
Nachfrage
15.10.2003 15:06:37
Jörg Gradert
Hallo Madman,
mir ist noch nicht ganz klar geworden, ob Du
1. mehrere Diagramme zusammen auf eine Seite drucken willst, oder
2. mehrere Diagramme, aber jedes Diagramm auf eine gross Seite drucken willst.

Gruss Jörg
Beispiel für 2 Diagramme jedes auf eine Seite
15.10.2003 15:31:13
Jörg Gradert
Hallo Madman,
habe mal folgendes Makro für 2 Diagramme aus einer Tabelle, jedes eine Seite gross aufgezeichnet und in eine Schleife gepackt.

Option Explicit


Sub Diagramme_drucken()
Dim i As Integer
For i = 1 To 2
Worksheets("Tabelle1").ChartObjects.Item(i).Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub


Gruss Jörg
Anzeige
AW: Beispiel für 2 Diagramme jedes auf eine Seite
15.10.2003 16:28:15
Madman
Könnte funktionieren, ist auf jeden Fall das was ich will!Kanns aber leider heute keine Möglichkeit mehr es zu probieren, ich antworte morgen früh obs geklappt hat!

Danke im Voraus, Madman

149 Forumthreads zu ähnlichen Themen

Zusammenfassung sheets auf einer Seite, ohne Leerz
gerdi

Hallo,
ich möchte aus verschiedenen Excel-Sheets (Tabs) eine Zusammenfassung
aller benutzten Zeilen haben.
Es gibt z.B. 10 verschiedene Tabellen, eine heißt Berlin, andere Rom, ect. und
auf jeder Tabelle sind zu verschiedenen Zeiten andere Inhalte.
Z.b. sind heute 10 Zeilen...
18.11.2008 14:36:00
Thread-ID: 1025647
3 Beiträge
Anzeige
Auf eine Seite drucken
Arnold

Hallo,
ich habe folgendes Problem:
Ich habe ein Tabellenblatt erstellt und will dieses über einen button ausdrucken.
Den Druckbereich habe ich wie folge definiert:
Private Sub CommandButton1_Click() Range("F9:P31").PrintPreview End Sub
Jetzt druckt er aber auf zwei Blätte...
29.11.2008 14:11:00
Thread-ID: 1028834
4 Beiträge
2 Sheets auf einer Seite!??
Timmy

Liebe Excler,
ich moechte folgendes erreichen.
Und zwar habe ich Daten auf einem Spreadsheet, die ich unabhaengig voneinander bearbeiten will.
Ich habe eine Beispieldatei angehaengt und etwas dazu erlautert...
https://www.herber.de/bbs/user/59047.xls
Ich hoffe, ich habe es...
03.02.2009 19:43:19
Thread-ID: 1046763
3 Beiträge
Anzeige
VBA: Erste Seite einer Datei nicht mitdrucken
Jonathan

Hallo zusammen,
ich habe folgendes Problem, welches mittels eines Makros gelöst werden muss:
Ich möchte in eine Datei ein Makro einbauen, welches verhindert, dass die erste Seite mitgedruckt wird.
Das Makro sollte nach dem klick auf die Druckfunktion starten.
Da die Datei späte...
17.04.2009 11:15:57
Thread-ID: 1069277
5 Beiträge
In einer Schleife auf einen Tastendruck warten
Bernd

Hallo liebe Excelisten,
ich habe leider im Archiv nichts finden können.
Ich habe ein Makro, welches automatisch nach Öffnen der Excel-Datei startet. Das läuft auch ganz gut.
Jetzt möchte ich eine Warteschleife von einer Minuten einbauen und in dieser Zeit soll auf einen Tastendruck...
29.04.2009 07:52:58
Thread-ID: 1071762
3 Beiträge
In einer Schleife auf Tastendruck warten
Bernd

Hallo Excelisten speziell Tino,
die u.a. Antwort von Tino funtioniert, wenn ich sie nachbaue. Wenn ich sie aber in mein Modul einbaue geht es nicht.
Ich verwende eine Auto_Open wie folgt:
Sub Auto_Open()
manueller_Ablauf = "nein"
Application.OnKey "%m", "Man_ablauf_setzen"
29.04.2009 13:58:25
Thread-ID: 1071901
5 Beiträge
Mehrere Pivottabellen auf einen Filter reagieren
vux

Hallo,
einfaches Anliegen:
Sagen wir ich habe eine Tabelle mit einer Spalte "Länder" und ein Sheet mit 20 Auswertungspivottabellen.
Kann man es einrichten, dass wenn man an einer Stelle ein Land eingibt, alle Pivottaballen nach diesem Land gefiltert werden? Sonst muss ich jedesmal 2...
16.06.2009 14:53:58
Thread-ID: 1081917
3 Beiträge
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
3
2
7
4
2
4
2
4
3
3
11
3
1
1
4
2
1
4
1
5
3
13
1