---

        Dim sts As Boolean
        Dim PicObj As System.Drawing.Image
        Dim AspectRatio As Double
        Dim BnWPrint As Boolean
        SEDraftX1.DraftFile = "c:\A3.dft"
        If (SEDraftX1.ReadyState <> 4) Then
            MsgBox(" A SE draft file has to be open")
            Exit Sub
        End If

        '  AspectRatio = 1.0#
        BnWPrint = True
        ' BnWPrint = False
        System.Windows.Forms.Clipboard.SetDataObject("")
        Call SEDraftX1.ActiveSheet.CopyEMFToClipboard(AspectRatio, BnWPrint)
      PicObj = System.Windows.Forms.Clipboard.GetDataObject.GetData(System.Windows.Forms.DataFormats.EnhancedMetafile)
      PicObj.Save("c:\aaa.wmf", System.Drawing.Imaging.ImageFormat.Wmf)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morning,

i found this thread on www.jasonnewell.net to this problem.

Regards Mike

[Diese Nachricht wurde von Mike Ulbrich am 14. Mai. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP