Private Sub cmd_Drucken_Click()
    Dim excel As Object
    …
    Set excel = CreateObject("excel.Application")
        excel.Visible = False                                                   _
                                                 'Excel-Anwendung unsichtbar 
        ' öffnen
        excel.DisplayAlerts = False                                             _
                                            'Benutzeraktionsbestätigungen 
        ' unterdrücken
        excel.EnableEvents = False                                              _
                                          'Verzicht auf Verarbeiten der 
        ' Excel-Ereignisse
        excel.ScreenUpdating = False
            excel.activeworkbook.ActiveSheet.Range("A1").Value = "X"            _
                  'Titelzeilen beschriften
 
            For zeile = 1 To FG_Daten.Rows                                      _
                                          'Alle Zellen durchlaufen
                For spalte = 1 To FG_Daten.Cols
                            excel.activeworkbook.ActiveSheet.Range(Chr$(64 + _
                              spalte) & zeile + 4).Value = Round( _
                              FG_Daten.TextMatrix(zeile - 1, spalte - 1), 1)                
 Next spalte
            Next zeile
	…
            excel.activeworkbook.ActiveSheet.PrintOut                           _
                                 'Vorlage drucken
            excel.activeworkbook.Saved = True                                                               
            excel.activeworkbook.Close SaveChanges:=False                                                   
        excel.ScreenUpdating = True
        excel.Quit                                                              _
                                                          'Excel-Anwendung 
        ' beenden
    Set excel = Nothing
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!