投稿日 | : 2003/07/13(Sun) 01:19 |
投稿者 | : tea |
Eメール | : |
URL | : |
タイトル | : MSFlexGridの印刷の質問 |
MSFlexGridの印刷の質問なんですが、下記コードで実行すると
氏名の1段下に記録項目が表示されてしまいます。
また、各記録項目のデータも各項目の下には表示されません。
どうか教えてください。
よろしくお願いします。
'MSFlexGrid2(0)の記録項目'
Printer.FontSize = 12: Printer.FontBold = False
Printer.CurrentX = Lyohaku '左余白'
Printer.CurrentY = Uyohaku '上余白'
Printer.Print "氏 名" & Space$(4) & " Shoot " & Space$(1) & " 3Point " & Space$(1) & _
" 2Point " & Space$(1) & " F T " & Space$(1) & " 総得点 " & Space$(1) & _
" Rebound " & Space$(1) & " Assist " & Space$(1) & " Steel " & Space$(1) & _
"BlockShot" & Space$(1) & " Foul "
Printer.CurrentY = Printer.CurrentY + 0.5
'各個人データの印字'
For i = 1 To Ken
MSFlexGrid2(0).Row = i
For j = 1 To Koumoku
MSFlexGrid2(0).Col = j
Printer.Print Tab((j - 1) * 11) _
; Right$(" " & Format(MSFlexGrid2(0).Text, _
"########"), 8);
Next j
'改行幅を1.5倍に設定'
Printer.CurrentY = Printer.CurrentY + 0.5
Printer.CurrentX = Lyohaku + 1 '左余白'
Next i