首先根据条形码的控件调整窗体大小，窗体最好是无标题栏的那种。

然后使用API函数keybd_event模拟print进行抓图。

声明：
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

抓图：
 Call keybd_event(vbKeySnapshot, 1, 0, 0)