Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.


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

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

Anzeige

312 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
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
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
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
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

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
8
16
3
2
2
3
3
2
7
2
7
4
3
13
4
4
5
5
8
2
6
1
3
2
4