For high-quality EMF2SWF conversion with support for EMF metafiles from virtual printers or complex reports please check HDC_HighQuality and HDC_HighQuality_UseBuffer properties ' Metafile.vbs you can find source code of this example along with required image file ' in "Examples\More Examples" sub-folder   W = 640   H = 480   Set Movie = CreateObject("SWFScout.FlashMovie")   Movie.InitLibrary "demo", "demo" ' Movie creating and setting parameters   Movie.BeginMovie 0,0,W,H,1,12,6   Movie.Compressed = true   Movie.SetBackgroundColor 255,255,255   ' read information about EMF file   Set EMFFileInfo = CreateObject("SWFScout.EMFFileInfo")   EMFFileInfo.LoadFile "PrintedHTML.emf"   EMF_Width = EMFFileInfo.Width   EMF_Height = EMFFileInfo.Height   Set EMFFileInfo = nothing   Movie.PlayMetaFileToHDC "PrintedHTML.emf", 0,0,W / EMF_Width , H / EMF_Height   Movie.PlaceFromHDC 1 Movie.ShowFrame 1 Movie.EndMovie Movie.SaveToFile "Metafile.swf"