You can download the source code of this example here: pdfdocscout_emf2pdf.zip 

This example shows how to convert EMF metafile into PDF document with PDFDoc Scout library

Code to convert EMF file to PDF:

' this example uses PDFDoc Scout to convert vector based EMF metafile image into PDF format

Set PDFDoc = CreateObject("PDFDocScout.PDFDocument")

PDFDoc.InitLibrary "demo", "demo"
PDFDoc.OutputFileName = "Metafile_EMF2PDF.pdf"
PDFDoc.DocumentInfo.Title = "PDFDoc Scout - EMF2PDF Demo"
PDFDoc.AutoOpenGeneratedPDF =True

PDFDoc.BeginDocument

' read information about EMF file
Set EMFFileInfo = CreateObject("PDFDocScout.EMFFileInfo")
EMFFileInfo.LoadFile "SampleMetafile.emf"
EMF_Width = EMFFileInfo.Width
EMF_Height = EMFFileInfo.Height
EMF_Resolution = EMFFileInfo.Resolution
Set EMFFileInfo = nothing

' set page size to EMF size
PDFDoc.Page.Width = EMF_Width
PDFDoc.Page.Height = EMF_Height

PDFDoc.Page.PlayMetaFileToHDCEx "SampleMetafile.emf", 0,0, EMF_Resolution / PDFDoc.Resolution, EMF_Resolution / PDFDoc.Resolution

PDFDoc.EndDocument

Set PDFDoc = nothing

You can download the source code of this example here: pdfdocscout_emf2pdf.zip