Option Explicit
Private FSO As New Scripting.FileSystemObject
 
Private Sub Form_Load()
  Dim Corel As CorelDRAW.Application, s As CorelDRAW.Shape
  Dim Datei As String, Pos As Long, bNeu As Boolean
  Datei = Command
  If Dir(Datei) = "" Then
    MsgBox "Datei nicht gefunden" & vbCrLf & Datei, , "FEHLER"
    Unload Me
    End
  Else
    If Dir(Left(Datei, Len(Datei) - 3) & "pdf") <> "" Then
      If MsgBox("Datei '" & Left(Datei, Len(Datei) - 3) & "pdf" & _
              "' überschreiben?", vbYesNo, "CGM2PDF") = vbNo Then
        GoTo ENDE
      End If
    End If
  End If
  Me.Show
  Pos = InStrRev(Datei, "\")
  txtAusgabe.Text = "Datei: " & Mid(Left(Datei, Len(Datei) - 3) & "pdf", Pos + _
    1) & " wird erzeugt."
  txtAusgabe.Text = txtAusgabe.Text & vbCrLf & "CorelDraw wird gestartet."
  Me.Refresh
  On Error Resume Next
  Set Corel = GetObject(, "CorelDRAW.Application")
  If Err.Number <> 0 Then
    Debug.Print Err.Number; Err.Description
    Set Corel = CreateObject("CorelDRAW.Application")
    bNeu = True
  End If
  Corel.OpenDocument Datei
  txtAusgabe.Text = txtAusgabe.Text & vbCrLf & "Umriss auf schwarz stellen."
  Me.Refresh
  Corel.ActiveDocument.ActivePage.Shapes.All.SetOutlineProperties , , _
    CreateRGBColor(0, 0, 0)
  txtAusgabe.Text = txtAusgabe.Text & vbCrLf & "PDF-Datei wird erzeugt."
  Me.Refresh
 
  Corel.ActiveDocument.PDFSettings.pdfVersion = pdfVersion14
  Corel.ActiveDocument.PublishToPDF Left(Datei, Len(Datei) - 3) & "pdf"
 
  Corel.ActiveDocument.Close
  If bNeu Then Corel.Quit
ENDE:
  txtAusgabe.Text = txtAusgabe.Text & vbCrLf & "CGM-Datei wird gelöscht."
  Me.Refresh
  Kill Datei
  'Kill Left(Datei, Len(Datei) - 3) & "err"
  Set Corel = Nothing
  Unload Me
End Sub