Meerdere tabbladen tegelijk printen

[edmoor]

Dat kan ook wel een stukje korter:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Index = 6 Then
        MsgBox "Afdrukken van tabblad 6 is niet toegestaan."
        Cancel = True
    End If
End Sub

Daarnaast zal een export naar PDF gewoon blijven werken.

 

[Obrecht]

Dan alleen als pagina 6 actief is
maak blad 1 actief blad en selecteer de rest dan werkt het volgens mij niet!!!

 

[edmoor]

Klopt.
Maar ik dacht dat het je alleen om het actieve werkblad ging.
Maar dan nog:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In ActiveWindow.SelectedSheets
        If ws.Index = 6 Then
            MsgBox "Afdrukken van tabblad 6 is niet toegestaan."
            Cancel = True
        End If
    Next ws
End Sub

 

[HSV]

@Obrecht,
Als een bericht direct onder iemands bericht staat is het aan de persoon gericht die daar boven staat.
Zoals nu niet het geval is dus (dan gebruik ik je gebruikersnaam).

Natuurlijk werkt dat niet, je gaat een PDF maken toch?, dan doet de printopdracht niets.
Volgens mij slaat je fantasie op hol

 

[Obrecht]

Klopt.
Maar ik dacht dat het je alleen om het actieve werkblad ging.

zo werkt het wel (denk ik) en is hij korter

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In ActiveWindow.SelectedSheets
        If ws.Index = 6 Then
            MsgBox "Afdrukken van tabblad 6 is niet toegestaan."
            Cancel = True
            Exit Sub
        End If
    Next ws
End Sub

 

[peter59]

Mag TS @Han... ook nog mee doen of is @Obrecht met dit topic op z'n eigen begonnen?

 

[Excelbat]

Iets latere reactie. Bij deze kan je de te printen sheets vastleggen bijv. in cellen A1:A3 in "Sheet4"

Public Sub PrintSeveralSheetsInOne()

    Dim rg As Range
    Set rg = ThisWorkbook.Worksheets("Sheet4").Range("A1:A3")

Sheets(Application.Transpose(rg)).PrintOut

End Sub

Greetz/Excelbat

 

[Han...]

Door privé omstandigheden heb ik helaas mijn topic een tijdje niet kunnen volgen.
Vandaar dat ik geen reacties gaf.
Mijn excuus daarvoor.
Wel fijn de reacties van jullie.
Ondertussen is het mij net hiermee wel gelukt voor wat ik voor ogen had.
Mijn dank voor de hulp !!