Hallo Ihr lieben,
möchte gerne über den CommandButton meine Exceltabelle drucken, jedoch nur Seite 2, 3, 6 und 9. Wie kann ich dieses in meinem Befehl einbauen?
Private Sub CommandButton2_Click()
If Application.Dialogs(xlDialogPrinterSetup).Show Then Selection.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut
End Sub
möchte gerne über den CommandButton meine Exceltabelle
drucken, jedoch nur Seite 2, 3, 6 und 9. Wie kann ich dieses
in meinem Befehl einbauen?
Private Sub CommandButton2_Click()
If Application.Dialogs(xlDialogPrinterSetup).Show Then
Selection.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut
End Sub
Hallo Schojaa,
wann willst du nur diese Blätter drucken, bei deinem ersten
Druckbefehl, bei deinem zweiten oder bei beiden?
Gruß
Reinhard
Hallo Reinhard,
danke, dass du mir geantwortet hast. Ich habe von Programmieren sehr wenig Ahnung und bin mich am heran tasten. Wenn ich zur Zeit auf den CommandButton drücke, dann wird mir ein Fenster geöffnet. Darin kann ich meinen Drucker auswählen. Dies ist wichtig. Nur nachdem ich den Drucker ausgewählt habe, danach soll er automatisch die genannten Seiten, ohne eine erneute Anfrage, welche Seiten gedruckt werden sollen, drucken.
Danke im Voraus für deine Hilfe.
Gruß
Schojaa
Hallo Schojaa,
Wenn ich zur Zeit auf den CommandButton drücke, dann wird mir
ein Fenster geöffnet. Darin kann ich meinen Drucker auswählen.
Dies ist wichtig.
nachstehend der zweite Code, da brauchst du nicht mehr
auszuwählen. Dein eingestellter Drucker ist nach dem
Druck wieder eingestellt (als ActivePrinter).
Nur zum Ausdrucken wird der Drucker benutzt der im Code steht.
Vllt. ist das was für dich.
Nur nachdem ich den Drucker ausgewählt habe,
danach soll er automatisch die genannten Seiten, ohne eine
erneute Anfrage, welche Seiten gedruckt werden sollen,
drucken.
Das machen beide Codes. Benennene zum Testen einen Code
um, gleiche makronamen in einem Modul mag der Debugger nicht.
Gruß
Reinhard
Option Explicit
Private Sub CommandButton2\_Click()
If Application.Dialogs(xlDialogPrinterSetup).Show Then
ActiveSheet.PrintOut From:=2, To:=3
ActiveSheet.PrintOut From:=6, To:=6
ActiveSheet.PrintOut From:=9, To:=9
End If
End Sub
Private Sub CommandButton2\_Click()
Dim Drucker As String
Drucker = ActivePrinter
ActiveSheet.PrintOut From:=2, To:=3, ActivePrinter:="PDFCreator"
ActiveSheet.PrintOut From:=6, To:=6
ActiveSheet.PrintOut From:=9, To:=9
ActivePrinter = Drucker
End Sub
Danke!
Danke!
Danke!
Danke!
Danke!
Es funktioniert einwandfrei. Ich habe nur eine Kleinigkeit, daran geändert.
Gruß Schojaa