投稿日 | : 2002/11/26(Tue) 13:21 |
投稿者 | : mm |
Eメール | : |
URL | : |
タイトル | : 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 '用紙サイズをA4
'印刷の向き 横=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