Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Const SRCCOPY = &HCC0020 'x = 1~13-1 'y = 1~10000-1 w = 100 h = 50 BitBlt 图形元素.hdc, X*100, Y*50, W, H, Form1.hdc, 0, 0, SRCCOPY
lz说的图形元素是否保存在数据库里?
打印窗体
开销最少的方法,就是用多个IMAGE控件,铺满一屏,每次翻页或搜索定位时更换每个控件的图像.如果要提高一下效率,可以把一行的多个图像合并成一个图像,或者把一屏的图像合成一或几个大的图像,至于单独选择和反显,都可以通过方阵定位和图像操作函数(看看类似BitBlt的API函数就知道了)来实现.
'x = 1~13-1
'y = 1~10000-1
w = 100
h = 50
BitBlt 图形元素.hdc, X*100, Y*50, W, H, Form1.hdc, 0, 0, SRCCOPY
http://hi.baidu.com/cbm666/blog/item/96e19b50858e436884352454.html有兴趣的话下载看看吧.