Direct printen

[DANIEL162]

Ik heb in excel een programma gemaakt om uurlonen te berekenen. Om uit te printen heb ik een knop op het rekenblad geplaatst met deze vba code
Sub PrintGeschiedenis()
EnableActiveDialogMenuControls (Application.Caption)
Sheets("Data").Visible = True

Sheets("Data").Select
With ActiveSheet.PageSetup
    .PrintArea = "$A$1:$Q$31"
    'Pagina liggend (staande)
    .Orientation = xlLandscape
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .CenterHorizontally = True
    .CenterVertically = True
End With
ActiveWindow.SelectedSheets.PrintPreview 'Printvoorbeeld
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'Printen
DisableActiveDialogMenuControls (Application.Caption)
Sheets("Data").Visible = xlVeryHidden
Sheets("Form").Select
End Sub

Als ik op deze knop druk krijg ik het afdrukvoorbeeld te zien. Kan ik hier in deze code iets veranderen om direct af te drukken of bestaat er een ander VBA

Weet iemand een oplossing?

 

[popipipo]

Ik heb het niet uitgeprobeerd maar ik denk dat onderstaand wel werkt.
'printpreview' veranderen in 'print'

 

[Janzwart]

Door in de volgende regel de ' weg te laten gaat hij direct printen.

[COLOR="#FF0000"]'[/COLOR]ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

 

[DANIEL162]

Bedankt Jan, Het werkt.

m.v.gr. Daniel