比如
Dim doc As New PrintDocDim img As prt.RenderImageDim Bar As New BarCodeBuilderBar.Symbology = Barpro.Symbology.QRCodebar.Code = "123456"Dim bmp As new bitmap(bar.GetImage, 100, 100)bmp.save("d:\test.wmf")bmp.dispose