Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druck auf eine Seite

Forumthread: Druck auf eine Seite

Druck auf eine Seite
27.05.2003 13:40:07
Frederik Fuhrmann
Hallo!

Wenn ich folgenden Code verwende, wird auf meinem Drucker alles auf eine Setie angepasst, auf einem anderen nicht, weiß jemand warum?



            ActiveSheet.PageSetup.PrintArea = ""
            With ActiveSheet.PageSetup
                .LeftHeader = ""
                .CenterHeader = ""
                .RightHeader = ""
                .LeftFooter = "Stand: 23.05.03"
                .CenterFooter = ""
                .RightFooter = "Ersteller: F.Fuhrmann / AV-Bo"
                .LeftMargin = Application.InchesToPoints(0)
                .RightMargin = Application.InchesToPoints(0.18)
                .TopMargin = Application.InchesToPoints(0)
                .BottomMargin = Application.InchesToPoints(0.53)
                .HeaderMargin = Application.InchesToPoints(0)
                .FooterMargin = Application.InchesToPoints(0.19)

                .PrintHeadings = False
                .PrintGridlines = False
                .PrintComments = xlPrintNoComments
                .PrintQuality = 600
                .CenterHorizontally = False
                .CenterVertically = False
                .Orientation = xlLandscape
                .Draft = False
                .PaperSize = xlPaperA4
                .FirstPageNumber = xlAutomatic
                .Order = xlDownThenOver
                .BlackAndWhite = False
                .Zoom = False
                .FitToPagesWide = 1
                .FitToPagesTall = 1
            End With
            wks.PrintOut
 

     Code eingefügt mit Syntaxhighlighter 1.16


Gruß
Frederik

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Druck auf eine Seite
27.05.2003 13:51:42
Michael Scheffler

Hi,

geh mal mit Einzelschritt durch - kann es sein, dass Excel z.B. bei "PrintQuality = 600" sich verabschiedet? Vielleicht solltest Du ein "On Error Resume Next" am Beginn reinschreiben?

Gruß

Micha

Re: Druck auf eine Seite
27.05.2003 13:55:07
Frederik Fuhrmann

Hallo Micha!

Das Makro bleibt nicht hängen, sonst würde es bei dem Schritt wks.printout auch nichts drucken!


Zur Erklärung:
Dies ist der Teil einer Schleife, die insgesamt 16 Dateien ausdruckt.


Gruß
F.


Anzeige
FitToPagesWide
27.05.2003 14:54:42
RAnton

Hier der Hilfetext dazu:

FitToPagesWide-Eigenschaft

Gibt die Anzahl der Seiten zurück (oder legt diese fest), auf die das Tabellenblatt während des Druckens in der Breite skaliert wird. Nur gültig für Tabellenblätter. Variant Schreib-Lese-Zugriff.

Anmerkungen

Wenn diese Eigenschaft den Wert False hat, skaliert Microsoft Excel entsprechend der FitToPagesTall-Eigenschaft.

Wenn die Zoom-Eigenschaft den Wert True hat, wird die FitToPagesWide-Eigenschaft ignoriert.


Gruß
RAnton

Anzeige
Re: FitToPagesWide
27.05.2003 14:58:02
Frederik Fuhrmann

Hallo!

Wie aber schon geschrieben, hat die Zoom -Eigenschaft den Wert False!

Gruß
F.

zoom=true
28.05.2003 11:38:32
RAnton

Dein Code:
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1

d.h. wie im Hilfetext geschrieben, wenn zoom=true wird FitToPageWide ignoriert. ergo wird es in deinem Fall verwendet.

Wo ist dein Problem?

Gruß
RAnton

Anzeige
Re: zoom=true
28.05.2003 11:40:14
Frederik Fuhrmann

Mein Problem ist das es nicht verwendet wird, der Druck also auf 2 Seiten stattfindet!!

Gruß
F.

Re: zoom=true
28.05.2003 16:11:33
RAnton

Aha,
kann es sein, dass du ein Druckertreiber Problem hast.

Gruß

RAnton

;

Forumthreads zu verwandten Themen

Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Zeilenanzahl bei ComboBox begrenzen
Gunter

Hallo Zusammen,
ich habe in einer UF eine ComboBox, diese wird mit Werten aus einer Tabelle gefüllt. Mittlerweile sind
200 Werte in der Tabelle und die Auswahl eines Wertes gestaltet sich recht schwierig, da die Liste nach unten nicht begrenzt ist. Meine Frage ist es möglich die ComboB...
10.11.2008 18:16:00
Thread-ID: 1023309
4 Beiträge
Anzeige
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
Wie kann man Makros auf einer html-Seite aktiviere
Nicola

Hallo
Ich habe eine Exceltabelle, bei der eine Suchfunktion als Makro eingebaut ist. Doch ich kann das Makro nicht mehr öffnen, sobald ich sie als htm/html-Datei abspeichere.
Grüße Nicola
24.11.2008 22:18:34
Thread-ID: 1027502
3 Beiträge
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
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Anzeige
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 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
25 Zeilen auf eine Seite
Markus

Hallo zusammen,
ich habe eine lange Tabelle (ca. 40 Seiten nur mal als Größe) und ich bekomme es trotz Seite einrichten "anpassen" und "Seitenränder" nicht oder nur sehr mühsam hin, hin dass auf jede Seite 25 genau Excel-Zeilen gedruckt werden.
Hat hier jemand ein Makro für? Das ist ab...
02.04.2009 18:57:27
Thread-ID: 1066456
8 Beiträge
Bestimmte Zeilen und Spalten löschen
jo_cindy

Hallo Leute, hab mal wieder eine Frage:
Nachfolgende Exceldatei bekomme ich aus meiner Zeiterfassung ausgelesen. Die rot markierten Bereiche (nur zur Erklärung hier rot gekennzeichnet!) benötige ich aber nur, alle anderen Daten sollen nicht nur ausgeblendet werden, sondern gelöscht werden....
28.04.2009 19:32:33
Thread-ID: 1071712
5 Beiträge
Anzeige
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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