vb列印源碼
A. 求vb列印預覽控制項源碼程序
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim oApp As New CRAXDRT.Application
Dim oRpt As CRAXDRT.Report
Dim reportName As String
Dim connstr As String
Dim ssql As String
'上面三行是新增加的
Screen.MousePointer = vbHourglass
reportName = "\TOAAGLE001.rpt" '定義要引用的rpt文件
Set oRpt = oApp.OpenReport(App.Path & reportName, 1)
oRpt.Database.SetDataSource rs '連接水晶報表和數據源
oRpt.ReadRecords
CRViewer1.ReportSource = oRpt '啟用水晶報表的預覽功能
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
If conn.State = adStateOpen Then conn.Close
'connstr = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prtest.mdb;Persist Security Info=False" 'prtest.mdb是程序當前目錄的測試Access資料庫
connstr = "Provider=MSDASQL.1;Extended Properties='DRIVER=sql server;SERVER=OC_CHINA05;UID=HXMFG;PWD=perfect888;APP=Visual Basic;WSID=PC-201104151518;DATABASE=Taileec6'"
conn.ConnectionString = connstr
conn.Open
conn.CursorLocation = adUseClient
If rs.State = adStateOpen Then rs.Close
If Trim(txtno.Text & "") = "" Then
sSQL = "SELECT * FROM dbo.INM_SYS_SYSPARAMETER RIGHT OUTER JOIN dbo.T_AGLE_M ON dbo.INM_SYS_SYSPARAMETER.SYS_PAR_CODE_C = dbo.T_AGLE_M.huopindanwei LEFT Outer Join dbo.INM_ITEM_M ON dbo.T_AGLE_M.huopinid = dbo.INM_ITEM_M.ITM_M_ITEMNO_C RIGHT OUTER JOIN dbo.T_AGLE_D LEFT OUTER JOIN dbo.INM_CUST_M ON dbo.T_AGLE_D.kehuid = dbo.INM_CUST_M.CUST_M_CUSTNO_C ON dbo.T_AGLE_M.dingdanid = dbo.T_AGLE_D.dingdanid"
Else
sSQL = "SELECT * FROM dbo.INM_SYS_SYSPARAMETER RIGHT OUTER JOIN dbo.T_AGLE_M ON dbo.INM_SYS_SYSPARAMETER.SYS_PAR_CODE_C = dbo.T_AGLE_M.huopindanwei LEFT Outer Join dbo.INM_ITEM_M ON dbo.T_AGLE_M.huopinid = dbo.INM_ITEM_M.ITM_M_ITEMNO_C RIGHT OUTER JOIN dbo.T_AGLE_D LEFT OUTER JOIN dbo.INM_CUST_M ON dbo.T_AGLE_D.kehuid = dbo.INM_CUST_M.CUST_M_CUSTNO_C ON dbo.T_AGLE_M.dingdanid = dbo.T_AGLE_D.dingdanid Where dbo.T_AGLE_D.dingdanid='" & Trim(txtno.Text & "") & "'"
End If
rs.Open sSQL, conn, adOpenKeyset, adLockReadOnly
'CRViewer1.ReportfileName = App.Path & "\TOAAGLE001.rpt"
'CRViewer1.PrintReport
End Sub
B. 在vb里怎麼實現列印功能如需編碼請提供一個源代碼,謝謝！
VB下數據報表列印輸出方法有多種，一是通過自己的設計和編程完成報表列印輸出。二是通過MS OFFICE實現報表列印輸出。三是應用數據報表設計器的報表列印輸出。本人經常使用第一種方法，它具有根據需要靈活應用的特點，但需編寫程序。
代碼見：
http://iask.sina.com.cn/b/2350257.html
本人的答復。
C. 急！用VB實現一個列印WORD文檔功能。。。
VB實現列印WORD文檔功能的思路如下：
一、設計一個列印模板文件，在需要填寫數據的地方作標記；
二、在列印前，可復制模板文件到一個臨時文件，然後打開此臨時模板文件，在標記處通過替換功能填寫數據。
三、顯示列印選項對話框，進行列印輸出。
以下是示例源代碼，請下載參考：
http://files.7lx.com/data/2010-09/2010september18th12_word_print.rar
D. 在vb里怎麼實現列印功能如需編碼請提供一個源代碼,謝謝！
實現列印功能需要一個公共對話框CommonDialog,在工程菜單-部件-選中micrsoft common dialog control 6.0
代碼:
Private Sub Command1_click()
CommonDialog1.ShowPrinter
或
CommonDialog1.Action=5
End
E. vb解答源代碼
kk = 0.104719755119659 就是從12點到1點這個π/6（30°）角的1/5倍，或者說是分針每分鍾轉過的角的弧度數，當a=1時，5 * kk * a＝π/6,它是時鍾里1點這個數字偏離12點的角（弧度數），這時CurrentX = 14 * Sin(5 * kk * a)是1點這個數字與6點到12點豎直線的距離，。(0, 0)點是表的中心，
CurrentX = 14 * Sin(5 * kk * a) - 0.6: CurrentY = 14 * Cos(5 * kk * a) + 0.3 為加了修正值的一對坐標。: Print aNext a為當前位置顯示「1」這個數字。
「Line (0, 0)-(12 * Sin(kk * Second(Time)), 12 * Cos(kk * Second(Time))), vbRed」這些語句的意思是時時畫「秒針」線，紅色的。
F. 請問VB中文檔列印，有沒有好的頁面設置源代碼
有,可以直接在VB里通過程序調用,使用WORD脫離VB的報表設計器,在程序里想WORD里寫數據,WORD的強大功能不用我說了吧,以下是VB象WORD寫數據的代碼，如果有看不懂的可以給我流言,GOOD LUCK 用軟體改變世界,用代碼書寫人生,用思想創造未來!
Dim WordTemps As New Word.Application '定義WORD類
WordTemps.Documents.Add App.Path & "\bb\ZLZTTJB.doc", True
WordTemps.Selection.Goto wdGoToBookmark, , , "單位"
WordTemps.Selection.TypeText MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)
WordTemps.Selection.Goto wdGoToBookmark, , , "填表日期"
WordTemps.Selection.TypeText Format(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 23), "YYYY年MM月DD日")
WordTemps.Selection.Goto wdGoToBookmark, , , "工程名稱"
G. 誰知道zebra斑馬列印機用VB如何設計列印圖片的，小弟剛接觸zebra，望能提供源代碼，非常感謝！
斑馬列印機能支持列印圖片功能，VB能實現斑馬列印機列印圖片功能。VB6.0與CODESOFT7軟體二次開發程序就可以了。溝通請QQ:593096664
H. vb.net如何實現列印DataGridView1里的內容，求源碼
使用 PrintDocument 控制項的 Print() 方法可以列印指定對象中的內容，參考代碼如下：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
PrintDocument1.Print()
EndSub
PrivateSubPrintDocument1_PrintPage(ByValsenderAsSystem.Object,ByValeAsSystem.Drawing.Printing.PrintPageEventArgs)HandlesPrintDocument1.PrintPage
DimbmAsNewBitmap(Me.DataGridView1.Width,Me.DataGridView1.Height)
DataGridView1.DrawToBitmap(bm,NewRectangle(0,0,Me.DataGridView1.Width,Me.DataGridView1.Height))
e.Graphics.DrawImage(bm,0,0)
EndSub
I. vb列印源代碼
部件名.ExecWB OLECMDID_PRINT, 1
這樣就行