不能排版。只能换行，但是不同的扫描工具对于换行，效果不一样
Dim Bar As New BarCodeBuilderBar.Symbology = Barpro.Symbology.QRCodeBar.Code = "123" & vbcrlf & "456"Bar.QuietZoneWidth = 2Bar.SaveImage("d:\code.wmf")
加好友 
发短信
Post By：2015/11/10 14:48:00 [显示全部帖子]
