可以把數(shù)據(jù)導(dǎo)出到EXCEL,然后使用EXCEL進(jìn)一步處理后使用。
上林ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景,ssl證書未來市場廣闊!成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道,可以享受市場價格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:13518219792(備注:SSL證書合作)期待與您的合作!
也可以做成vb報表(VB自帶有)。
先設(shè)置報表格式,打印時向報表傳遞數(shù)據(jù)就可以了。
picture本身不是文本控件,文本是“畫”上去的,換行需要用代碼測量每個字在指定字體下的寬度,判斷在當(dāng)前picture的寬度之下,一行能容納多少文字,剩下的文字就在下一行繪制。
1、vb6里可以用Printer對象的PaintPicture 方法實現(xiàn)打印picturebox里的圖片。
2、vb6示例:
Private?Sub?Form_DblClick()
'實現(xiàn)打印圖像到打印機(jī)
Printer.PaintPicture?Picture1.Picture,?0,?0
Printer.EndDoc
End?Sub
打印做得不多,以前做套打時發(fā)現(xiàn),每臺打印機(jī)定位都不一樣,于是每臺機(jī)子都加了個偏移設(shè)置
我的做法在白紙上打上一標(biāo)尺,和一個上下邊距為2CM的交叉點,然后用標(biāo)尺量這2CM的偏移,設(shè)置完后,在這臺打印機(jī)打印時,就給紙張加個偏移量,打印就正常了??赡苣愕脑蚝臀乙粯印?/p>
另外也想問你一下,你這個條碼是用什么打的。早先,我用立象的條碼打印機(jī)打不干膠,很簡單,激光打沒用過,可能下次我也要用條碼打印,我也用VB.net。求教.
我?guī)湍惆炎詈笠徊糠值恼Z句順序調(diào)換一下。你試一試
sub button1_click() '---執(zhí)行打印
Dim pd As PrintDocument = New PrintDocument
pd.PrinterSettings = PrintDialog1.PrinterSettings
If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
for i=0 to 1 '這樣可以兩次截圖
CaptureScreen() '--執(zhí)行前面自定義函數(shù)截圖
AddHandler pd.PrintPage, AddressOf Document_PrintPage
pd.Print()
Threading.Thread.sleep(100) ‘ 再加上一個間隔
next
end sub