我测试这个代码没问题
Dim Bar As New BarCodeBuilderBar.Symbology = Barpro.Symbology.QRCodeBar.Code = "123456"'Bar.QuietZoneWidth = 10Bar.CodeAlignment = Barpro.Alignment.BelowLeftBar.QRCodeModuleSize = 3Bar.SaveImage("d:\test.wmf")