📄 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 + -