automatisch printen

[blijdorp1]

Hai een ieder,
Is het mogelijk om bijv vanuit blad1 bij een als waarde > dan in een cel automatisch blad 2 te laten printen
Met dank Hans

 

[WinteE]

Dat kan wel.

Stel dat cel A1 groter is dan 10 :

If Range("A1") > 10 Then
    Sheets("Blad2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Blad1").Select
End If

Deze code dien je in het OnChange event van Werblad 'Blad1' te kopiëren.

 

[Wigi]

Om meer precies te zijn:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target > 10 Then Sheets("Blad2").PrintOut Copies:=1, Collate:=True
    End If
End Sub

Ongeteste code

Wigi