'テーブルの内容を出力 Dim dr As OrderDataSet.GoodsRow For Each dr In OrderDataSet.Goods.Rows '1レコードを出力 e.Graphics.DrawString( _ dr.GoodsID.ToString.PadRight(10) & _ dr.GoodsName.ToString.PadRight(20, " ") & _ dr.Price.ToString.PadLeft(5), _ f, Brushes.Black, _ x, y + (cnt * pitch))