VBA-Profis hilfe bitte {mskro} HILFE

27.07.2006 14:38:12

Tobias

immernoch nicht geholfen

AW: VBA-Profis hilfe bitte {mskro} HILFE

27.07.2006 14:39:01

Tobias

https://www.herber.de/forum/messages/785859.html

muß in dem Falle "passen", sonst gerne.

27.07.2006 14:58:14

{mskro}

...

AW: muß in dem Falle "passen", sonst gerne.

27.07.2006 15:16:04

Tobias

kannst du denn nicht Befehle einbauen die die erste Seite jeder Tabelle drehen, also das das Blatt beim Drucken im Querformat ist und halt nicht normal.
Oder das gezoomt bzw verkleinert wird?

warte doch bis einer hilft, der es kann. ;-)

27.07.2006 15:19:29

{mskro}

...ich hätte es getan, wenn ich könnte.
Gruß Manfred

AW: VBA-Profis hilfe bitte {mskro} HILFE

27.07.2006 15:59:24

Hoffi

Hallo Tobias,
versuch mal das Makro hier:


Sub Drucken()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "Name des ersten Blattes" Or Sheets(i).Name = "Name des letzten Blattes" Then
MsgBox "wird nicht gedruckt"
Else
With Sheets(i).PageSetup
.Orientation = xlLandscape 'Querformat
.FitToPagesTall = 1        'Anpassen auf eine Seite
.FitToPagesWide = 1        'Anpassen auf eine Seite
.FirstPageNumber = xlAutomatic 'Automatisch anordnung der Seiten (1 bis)
.Order = xlDownThenOver        'Erst die Seiten eines Blattes, dann die des nächsten
End With
Sheets(i).PrintOut
End If
Next i
End Sub

Du musst nurnoch die Namen des ersten und letzten Blattes, welche nicht gedruckt werden sollen einzutragen, alle Blätter dazwischen (auch neue) werden eingerichtet (Querformat, auf eine Seite) und ausgedruckt.
Sollen die Blätter nicht auf eine Seite beschränkt werden, dann lass die beiden Zeilen
.FitToPagesTall = 1 'Anpassen auf eine Seite
.FitToPagesWide = 1 'Anpassen auf eine Seite
einfach weg.
Grüße
Hoffi
P.S. Rückmeldung wäre nett...

AW: VBA-Profis hilfe bitte {mskro} HILFE

27.07.2006 16:17:05

Tobias

sry bin außer Haus
Antwort erst morgen wieder

FERTIG

28.07.2006 11:35:08

Tobi

super DAtei hat gefunkz einwandfrei

VBA-Profis hilfe bitte {mskro} HILFE

Forumthread: VBA-Profis hilfe bitte {mskro} HILFE

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

VBA-Profis hilfe bitte {mskro} HILFE

Forumthread: VBA-Profis hilfe bitte {mskro} HILFE

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

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread