以下のプログラムで実行して印刷したんですが、出力結果がうまく出ません。
毎回改行されてしまいます…こんな感じです
---------------------------------
商品番号
　　　　　　金額
　　　　　　　　　　　商品名
　　　　　　　・
　　　　　　　・
　　　　　　　・
---------------------------------
初心者の私にはこの印刷の仕方はかなり難しいんですが、もっと簡単な
方法はないんでしょうか？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

ここのMSFlexGrid関係の中の印刷関係を見て下さい。
色々な方法があります。