?? 18748.html
字號:
<html> <head> <title>Re: Pinter物件如何使用?</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: Pinter物件如何使用?</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:ckk1023@tomail.com.tw">kkcheung</a> on September 10, 1999 at 10:22:13:<p>In Reply to: <a href="18716.html">Pinter物件如何使用?</a> posted by Lai on September 09, 1999 at 17:06:12:<p>: 如何以Printer物件將DataGrid上的內容逐筆印出?<br>: 行與頁要如何控制?<p>下面一段程式,可以將grid的資料經printer物件列印出來但可能有此要作適當的修改,如果有什么問題,可來e-mail再研究.<br>For row_no = 1 To Grid1.Rows - 1<br>Grid1.Row = row_no<p>If row_no = Grid1.Rows - 1 Then '合計前,先空一行<br>Printer.Print<br>End If<p>For col_no = 0 To Grid1.Cols - 1<br>Grid1.Col = col_no<p>Select Case col_no<p>Case 0<br>Printer.Print Tab(1); Trim(Grid1.Text);<p>Case 1<br>Printer.Print Tab(12); Trim(Grid1.Text);<p>Case 2<br>Printer.Print Tab(25); Trim(Grid1.Text);<p>Case 3<br>Printer.Print Tab(34); Trim(Grid1.Text);<p>Case 4<br>Printer.Print Tab(61 - Len(Format(Grid1.Text, "#,###0"))); Format(Grid1.Text, "#,###0");<p>Case 5<br>Printer.Print Tab(73 - Len(Format(Grid1.Text, "#,###0.00"))); Format(Grid1.Text, "#,###0.00");<p>Case 6<br>Printer.Print Tab(83 - Len(Format(Grid1.Text, "##0.00"))); Format(Grid1.Text, "##0.00");<p>Case 7<br>Printer.Print Tab(94 - Len(Format(Grid1.Text, "#,###,##0.00"))); Format(Grid1.Text, "#,###,##0.00");<p>Case 8<br>Printer.Print Tab(99); Trim(Grid1.Text)<br>End Select<br>Next col_no<br>Next row_no<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18748--></ul><!--end: 18748--><br><hr size=7 width=75%><p></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -