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

投稿日： 2002/11/26(Tue) 13:21
投稿者： ｍｍ
Ｅメール：
ＵＲＬ：
タイトル： Re^4: VBからCSV印刷

ちなみに今書いているソースはこんな感じです。

Private Sub DataPrint()
    Dim objExcelApp   As Object
    Dim strExcelFile As String
    Dim strExcelSheet As String

    'エクセルのファイル名
    strExcelFile = "C:\WINDOWS\デスクトップ\Book1.csv"
    'ブックのシート名
    strExcelSheet = "Book1"
    'エクセルへ参照
    Set objExcelApp = CreateObject(strExcelFile)
    
    With objExcelApp.Worksheets(strExcelSheet)
        '列の幅を設定
        .Range("C1", "X1").ColumnWidth = 5.75
    End With

    objExcelApp.Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    
    'シートの印刷設定
    With objExcelApp.Worksheets(strExcelSheet).PageSetup
        .PaperSize = xlPaperA4      '用紙サイズをＡ４
        '印刷の向き　　横=xlLandscape 　　縦 = xlPortrait
        .Orientation = xlLandscape
        '各余白をセンチ(Cm)単位で設定
        '　注意　　　 ↓Application でも参照できるが開放されない
        .LeftMargin = objExcelApp.CentimetersToPoints(2)
        .RightMargin = objExcelApp.CentimetersToPoints(2)
        .TopMargin = objExcelApp.CentimetersToPoints(2.5)
        .BottomMargin = objExcelApp.CentimetersToPoints(2.5)
        .HeaderMargin = objExcelApp.CentimetersToPoints(1)
        .FooterMargin = objExcelApp.CentimetersToPoints(1)
    End With

    'CSV印刷
    objExcelApp.Worksheets("Book1").PrintOut

    'Excelのウインドウ（Book)を表示する
    objExcelApp.Windows(1).Visible = True

    'エクセルの終了
    objExcelApp.Application.Quit

    'オブジェクトを開放
    Set objExcelApp = Nothing

End Sub
  

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

- Web Forum -