VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/08/27(Wed) 14:26
投稿者： Toney
Ｅメール：
ＵＲＬ：
タイトル： MSFlexGrid印刷

以下のプログラムで実行して印刷したんですが、出力結果がうまく出ません。
毎回改行されてしまいます…こんな感じです
---------------------------------
商品番号
　　　　　　金額
　　　　　　　　　　　商品名
　　　　　　　・
　　　　　　　・
　　　　　　　・
---------------------------------
初心者の私にはこの印刷の仕方はかなり難しいんですが、もっと簡単な
方法はないんでしょうか？CommonDialogにShowPrinterってのがあったので
使ってみたんですがこれもうまく行きませんでした。と言うよりもShowPrinter
で設定した項目が印刷の時に反映されていませんでした…

Private Sub Print_Click()
Dim ken As Integer
Dim ii As Integer

    ken = 20

    For ii = 1 To ken
        MSFlexGrid1.Col = 1
        Printer.Print MSFlexGrid1.Text '商品番号
        MSFlexGrid1.Col = 2
        Printer.Print Tab(10); MSFlexGrid1.Text '金額
        MSFlexGrid1.Col = 3
        Printer.Print Tab(20); MSFlexGrid1.Text '商品名
    Next ii
    Printer.EndDoc '印字終了

End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -