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

Drucken bestimmter Zeilen in Querformat mit Makro

Forumthread: Drucken bestimmter Zeilen in Querformat mit Makro

Drucken bestimmter Zeilen in Querformat mit Makro
12.11.2005 20:31:38
Nick
Hallochen,
ich nochmal mit einer bitte.
Ich brauchte ein Makro wo ich die Zeilen A bis F und die Spalten 4 bis 17 in Querformat drucken kann. Die Tabelle heißt Aktuell.
Ich danke in voraus.
Ich hoffe es ist machbar.
Nick
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken bestimmter Zeilen in Querformat mit Makro
12.11.2005 23:07:50
Herbert
hallo Nick,
ein Beispiel:


Public Sub Drucken()
Dim a$
a = MsgBox("Wollen Sie Drucken ?", vbYesNo, "")
      If a = vbNo Then Exit Sub
Application.ScreenUpdating = False
With Sheets("AKTUELL")
      With .PageSetup
        .LeftHeader = "&A"
        .CenterHeader = ""
        .RightHeader = "Page &P"
        .LeftFooter = "&8&Z&F"
        .RightFooter = Format(Date, "dd.mm.yy")
        .Orientation = xlLandscape
        .PrintArea = "$A$4:$F$17"
        .Zoom = 90
        .PrintQuality = 600
      End With
   .PrintOut Copies:=1, Collate:=True
End With
    
Application.ScreenUpdating = True
End Sub
     
gruß Herbert
Anzeige
AW: Drucken bestimmter Zeilen in Querformat mit Makro
12.11.2005 23:10:10
Herbert
hallo Nick,
ein Beispiel:


Public Sub Drucken()
Dim a$
a = MsgBox("Wollen Sie Drucken ?", vbYesNo, "")
      If a = vbNo Then Exit Sub
Application.ScreenUpdating = False
With Sheets("AKTUELL")
      With .PageSetup
        .LeftHeader = "&A"
        .CenterHeader = ""
        .RightHeader = "Page &P"
        .LeftFooter = "&8&Z&F"
        .RightFooter = Format(Date, "dd.mm.yy")
        .Orientation = xlLandscape
        .PrintArea = "$A$4:$F$17"
        .Zoom = 90
        .PrintQuality = 600
      End With
   .PrintOut Copies:=1, Collate:=True
End With
    
Application.ScreenUpdating = True
End Sub
     
gruß Herbert
Anzeige
AW: Drucken bestimmter Zeilen in Querformat mit Makro
13.11.2005 12:13:43
Nick
Hallochen,
ich habe den Quellcode in Modul eingegeben und dann das Macro zugewiesen.
Es erscheint nach der Frage "Drucken ja nein" die Fehlermeldung: "Die PrintQuality-Eigenschaft des PageSetup-Objektes kann nicht festgelegt werden"
Was muss ich da ändern?
Nick
AW: Drucken bestimmter Zeilen in Querformat mit Makro
13.11.2005 13:33:38
Herbert
jene einstellen,die dein Drucker hergibt,oder die Zeile rauslöschen...
gruß Herbert
Anzeige
AW: Drucken bestimmter Zeilen in Querformat mit Makro
13.11.2005 18:00:54
Nick
Hallochen,
vielen Dank.
So funktioniert das Super
Viele Grüße
Nick

Forumthreads zu verwandten Themen

Tabellenblat erstellen und benennen
Gordon

Moin,
mit dem Befehl Sheets.add kann man ja per VBA ein neues Tabellenblatt erstellen. Dieses wird ja standartmäßig mit Tabelle (+ Nummer) benannt. Ist es auch möglich ein Tabellenblatt zu erstellen, wo man von vorne weg gleich den Namen bestimmen kann? Und wenn ja, mit welchem Befehl?
23.08.2008 17:45:00
Thread-ID: 1004145
6 Beiträge
Tabelle erstellen und löschen durch vergleich
juergen

Hallo
Ich habe eine Tabelle mit einer Namensliste die erweitert bzw.geändert wird. Namen ab B4 bis B....
Bei einen Namen in B4 oder B... soll eine Neue Tabelle mit dem wert in Zelle B... erstellt werden bzw. meine Vorlage kopiert und als neues Blatt eingefügt werden und mit dem Namen ve...
20.12.2008 18:55:00
Thread-ID: 1034439
12 Beiträge
Überschriftzeile auf jeder Druckseite
thoemmy

Hallo VBAler
Ich habe eine ewig lange Tabelle die ich drucken möchte.
Ist es möglich dass man angibt, dass auf jeder neuen (Druck)Seite die Überschriftzeile an erster Stelle steht.
In meinem Fall ist der Überschriftsbereich Range(Cells(1,1),Cells(5,35)).
Danke für eure Tipps und...
18.05.2009 13:51:52
Thread-ID: 1075888
2 Beiträge
Anzeige
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Arbeitsblatt mit bestimmtem Drucker drucken
Nico

Hallo zusammen!
ich habe mit folgendem Code eine Druckfunktion in meine Datei eingebaut:
Sheets("Druckbereich").PrintOut
Wie kann ich festlegen, dass das Arbeitsblatt nicht direkt gedruckt wird, sondern mit einem bestimmten Drucker erzeugt wird (pdf-Drucker)?
Danke schön für eur...
14.07.2009 14:30:03
Thread-ID: 1088502
3 Beiträge
Anzeige
Tabellenblätter erstellen und Benennen
Andreas

Hallo zusammen,
zu meinem Problem habe ich schon etwas recherchiert aber nicht das passende gefunden.
Ich habe eine Tabellenvorlage und ein weteres TAbellenblatt mit Fahrzeugkennzeichen (Blatname: Fahrzeugliste; Bereich B4:B50)
Das Tabellenblatt "Vorlage" soll für jedes Kennzeichen...
03.09.2009 10:12:11
Thread-ID: 1100273
2 Beiträge
Tabelle erstellen über Inputbox und vbchancel
Juergen

Hallo Ihr Exelaner,
Ich habe da ein Problem Ich möchte über die Funktion Inputbox eine neue Tabelle erstellen.
Habe schon viel gesucht aber nichts passendes gefunden.
Und bekomme das nicht so richtig hin immer wenn ich auf Abbrechen gehe erstellt er mir trotzdem eine Tabelle mit N...
20.01.2010 20:29:08
Thread-ID: 1131514
3 Beiträge
Ausdrucken mit Makro - Blätter nach Wert
jens

Hallo Excel Profis,
ich habe ein Programm mit dem ich Ausdrucke erzeigen möchte.
Wenn in der Zelle "Tabelle1" D50 eine 1 steht, soll nur das Blatt B-1 ausgedruckt werden.
Bei einer 2 soll Blatt B-1 und B-2 ausgedruckt werden
Bei einer 3 soll Blatt B-1 und B-2 und B-3 ausgedruckt...
20.05.2010 12:25:07
Thread-ID: 1158047
7 Beiträge
Excel-Tabblatt mit Kommentaren drucken per E-mail
FrankA.

Hallo ihr
Mal ne kurze Frage, die da heute im Raum schwirrte (Arbeit).
Besteht die Möglichkeit ein Blattinhalt mit den Zellenkommentare zu drucken.
Ein oder sämtliche Kommentare sollten im Ausdruck sichtbar sein.
Frage: Geht das überhaupt ?
Forget not, to knock off work :-)...
18.06.2010 07:22:46
Thread-ID: 1162564
3 Beiträge
Blatt mit definiertem Fach und Textblock drucken
Helmut

Liebe Forenuser,
ich habe folgende Frage an euch:
Wie kann ich mittels eines Buttons in Excel ein Tabellenblatt ausdrucken, dass der Drucker ein definiertes Papierfach auswählt und zusätzlich dieses Tabellenblatt mit einem Textblock versieht, der in der Fußzeile stehen soll?
Ein we...
28.07.2010 10:23:50
Thread-ID: 1169253
7 Beiträge
Tabellenblätter erstellen und verlinken
Rene

Hallo VBA-Experten,
ich habe ein Makro von Andreas E gefunden und an meine Bedürfnisse angepasst. Leider funktioniert das Makro nur bedingt. Auf Tabellenblatt 1 habe ich ein Liste erstellt und Tabellenblatt 2 ist das Musterblatt, welches für jeden Eintrag in Spalte E vom Tabellenblatt 1 kop...
17.02.2011 15:02:24
Thread-ID: 1201464
2 Beiträge
Anzeige
Tabelle erstellen und mit Hyperlink verknüpfen
Rene

Hallo VBA-Experten,
ich habe ein Makro von Andreas E gefunden und an meine Bedürfnisse angepasst. Leider funktioniert das Makro nur bedingt. Auf Tabellenblatt 1 habe ich ein Liste erstellt und Tabellenblatt 2 ist das Musterblatt, welches für jeden Eintrag in Spalte E vom Tabellenblatt 1 kop...
17.02.2011 20:35:16
Thread-ID: 1201577
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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