Option Explicit
 
Private Sub ButtonPrint_Click()
  Dim myLabelText As String
  Dim myChoice As String
  Dim EaDocName As String
  Dim NewDocName As String
 
  '
  ' Name des Dokuments auf dem der Assistent läuft
  '
  EaDocName = ActiveDocument.Name
  '
  ' Texteingabe prüfen
  '
  myLabelText = TextInput.Text
  If Len(myLabelText) > 255 Then
    MsgBox EA_MSG_MAXSIZE, vbCritical + vbOKOnly, EA_MSG_MAXSIZEHEADING
    Exit Sub
  End If
  '
  ' Neues Etikettendokument erstellen und Name merken
  '
  myChoice = TextEti
  If OptionLandscape Then myChoice = myChoice + LANDSCAPE_POST
 
 
"????? hier ist der FEhler" 
Application.MailingLabel.CreateNewDocument Name:=myChoice, Address:=myLabelText
 
 
 
  NewDocName = ActiveDocument.Name
 
  '
  ' Schrift einstellen
  '
  Selection.WholeStory
  Selection.Font.Name = ComboFonts.Text
  Selection.Font.Size = ComboBox1
 
  If OptionPrinter Then
    Dim rtn As Long
    rtn = MsgBox(EA_MSG_PRINTEROPTION, vbQuestion + vbYesNoCancel)
    Select Case rtn
      Case vbYes
        Documents(NewDocName).PrintOut
      Case vbCancel
        ActiveDocument.Close False
        Exit Sub
    End Select
  End If
 
  Unload Me
  On Error Resume Next
  '
  ' Dokument des Assistenten schließen
  '
  Documents(EaDocName).Close
  Documents(EA_NAME).Close False
End Sub
 
Private Sub ListEti_Change()
  TextEti.Text = ListEti.Text
End Sub
 
Private Sub OptionDocument_Click()
  ButtonPrint.Caption = BTN_BUILD
End Sub
 
Private Sub OptionPrinter_Click()
  ButtonPrint.Caption = BTN_PRINT
End Sub
 
Private Sub UserForm_Initialize()
  On Error Resume Next
  FormAssistent.TextInput.SetFocus
End Sub