📄 5149.html
字号:
<html>
<head>
<title>Re: 请问如何列印在DBGRID中的资料?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 请问如何列印在DBGRID中的资料?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:jhchiu@cpcedri.com.tw">老邱</a> on August 31, 1998 at 15:04:54:<p>
In Reply to: <a href="5029.html">请问如何列印在DBGRID中的资料?</a> posted by Jonny on August 25, 1998 at 09:41:48:<p>
: 我将data show 在dbgrid中之后想从此grid中列印出来?<br>: 如有sample code可否提供<p>: <br>: 感激不尽<p>Hi! Mr. Jonny:<br> 我是在DBGrid的form中放入Crystal Report控制项(程式中的QReport)<br>和Data控制项(datDataCtl),到Cry.Rep.设计好表格存档(.rpt),<br>在程式中RepotFileName指到此档,并以其查询语法筛选资料,当按了<br>cmdPrint的CommandButton后QReport.Action=1会送出预览列印<br>画面,按印表机小图示就可印出了.希望对您有用. <br> 老邱 '98/08/31<br>程式码:<br>Private Sub Form_Load()<br> On Error Resume Next<br> '调整萤幕<br> Width = Me.Width<br> Height = Me.Height<br> Left = (Screen.Width - Width) / 2<br> Top = (Screen.Height - Height) / 2<br> grdDataGrid.DefColWidth = 850 '调整Grid的行宽<br> datDataCtl.RecordSource = TotalSQLString '要显示在DBGrid上的资料记录来源<br> datDataCtl.Refresh<br> <br> datDataCtl.Recordset.MoveLast<br> recNum = datDataCtl.Recordset.RecordCount<br> datDataCtl.Recordset.MoveFirst<br> currentRec = 1<br> If recNum = 0 Then<br> datDataCtl.ForeColor = &HFF&<br> datDataCtl.Caption = "没有查到您要的资料!请按[离开]回原画面。"<br> cmdPrint.Enabled = False<br> Exit Sub<br> End If<br> datDataCtl.Caption = "总共" & Str(recNum) & "笔，这是第 1笔资料"<br>End Sub<br>-----------------------------<br>Private Sub cmdPrint_Click()<br> Dim Pstr As String<br> Pstr = "C:\(路径)\" & TableName & ".rpt" 'Crystal Report的档名<br> QReport.ReportFileName = Pstr<br> QReport.SelectionFormula = PrintString<br> '字串变数PrintString是类似SQL的查询语法,如上的TotalSQLString,可看Crystal说明<br> QReport.Action = 1<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5149-->
</ul><!--end: 5149-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -