title image


Smiley Re: Vor- und Rückseite eines mehrseitigen Excel-Dokumentes drucken
Hallo!



Versuch es mal mit einem Makro.

Etwa so:



Sub VorderUndRückSeitenDrucken()



Dim int_AnzSeiten As Integer

Dim int_Seite As Integer

Dim wsh As Worksheet



Set wsh = ActiveSheet

int_AnzSeiten = (wsh.HPageBreaks.Count + 1) * (wsh.VPageBreaks.Count + 1)

For int_Seite = 1 To int_AnzSeiten

If int_Seite Mod 2 0 Then

wsh.PrintOut From:=int_Seite, To:=int_Seite, Copies:=1

End If

Next



MsgBox "Vorderseiten entnehmen und " _

& "zum Bedrucken der Rückseiten wieder einlegen", vbOKOnly



For int_Seite = 2 To int_AnzSeiten

If int_Seite Mod 2 = 0 Then

wsh.PrintOut From:=int_Seite, To:=int_Seite, Copies:=1

End If

Next



End Sub



Habe ich selbst nicht getestet. Bitte ggf. selbst testen.



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: