Private Sub out()
        Dim ps As New PageSetupDialog
        Dim margins As New Margins(0, 0, 0, 0)
        Dim papersize As New PaperSize("PaperSize German Std Endlospapier", _
          850, 1200)
 
        ps.Document = doc
        ps.PageSettings.Margins = margins
        ps.PageSettings.PaperSize = papersize
 
        If druck_dialog = True Then
            ps.ShowDialog()
        End If
 
        doc.Print()
    End Sub