Dialogboksen udskriv via VBA

Sub udskriv()
  Application.Dialogs(xlDialogPrint).Show
End Sub

Endnu bedre er at ligge noget lig dette ind i modulet ThisWorkBook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim answer
  Application.EnableEvents = False
  answer = Application.Dialogs(xlDialogPrint).Show
  If answer = False Then Cancel = True
  Application.EnableEvents = True
End Sub

Mange tak for hjælpen. Det var lige det jeg havde brug for.

velbekomme :-)