CSVファイルをExcelでタイトルをつけて印刷するには？

解決

かんいち 2004-05-08 17:50:59 No: 113078 IP: [192.*.*.*]

こんにちわ、お願いします。
CSVにデータ書いて、そのデータをExcelで出力したいんですが…。

ページをまたがらないようにして、更に改ページした時タイトルも常につけたいと思うのですが、良い方法はありますか？
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Open("C:\ptemp.xls")
Set xlsSheet = xlsBook.Sheets("Sheet1")
    strFileName = "c:\temp.csv"
    intFileNo = FreeFile
    Open strFileName For Input As intFileNo
    Do Until EOF(intFileNo)
        intRow = intRow + 1
        For intCol = 1 To 10
            Input #intFileNo, strRecBuff
            xlsSheet.Cells(intRow, intCol) = strRecBuff
        Next
    Loop
xlsApp.DisplayAlerts = False
xlsBook.Application.Visible = True
xlsSheet.PrintOut
xlsBook.Close

こんな風に出力したい
データは、合計の文字と合計金額はCSVにあります。

        リスト        1ページ
番号  商品  数量  単価  金額
１  あめ    ２    10      20
２  がむ    １    20      20
                合計      40
            ・
            ・
            ・
        （改行）
                      2ページ
番号  商品  数量  単価  金額
１    あめ  ３    10      30
３    かし  １    20      15
                合計      45

ぜひよろしくお願いします。

編集削除

のん 2004-05-08 21:05:22 No: 113079 IP: [192.*.*.*]

SheetオブジェクトのPageSetupプロパティのPrintTitleRowsに
タイトル表示したい行を設定すればできると思います。

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"←行のタイトル
.PrintTitleColumns = ""←列のタイトル
End With

編集削除

かんいち 2004-05-10 09:59:40 No: 113080 IP: [192.*.*.*]

のんさん素早い対応でありがとうございます。

Excelの印刷設定になるんですね、それをVBでやるということで、Excel側でもやってみました、思うような結果でうれしいです。

ありがとうございました。

編集削除