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
这样就行