C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


■85958 / )  ExcelのPageSetupプロパティ
□投稿者/ k3user (16回)-(2017/12/05(Tue) 16:11:25)

分類:[.NET 全般] 

Excel出力をするプログラムをVB.Netで作成しているのですが、
PageSetupプロパティ設定時に「PageSetup クラスの Orientation プロパティを設定できません。(1004)」
のエラーが表示されてしまいます。マイクロソフトのページに
プリンタのドライバをインストールすれば問題が解決するとの情報が
あったので、ドライバをインストールしたのですが、解決に至っていません。
プログラムに問題があるのかそれともPCの設定に問題があるのか?
何か情報がありましたらご教示願います

Excelのバージョン                             Excel2016
Windowsのバージョン                           Windows Server2012(64Bit)
.NetFrameWorkのバージョン                     V4.6
ターゲットCPU                                 Any
Microsoft.Office.Interop.Excelのバージョン    14.0.0.0

Private Function testExcel

    Dim wvExcelApp As Object = Nothing
    Dim wvExcelBook As Object = Nothing
    Dim wvExcelSheet1 As Object = Nothing
    Dim wvExlData(,) As Object = Nothing
    Dim wvExcelExec As Boolean

    'Excel起動(非表示)
    wvExcelApp = CreateObject("Excel.Application")
    wvExcelApp.Visible = False
    wvExcelApp.DisplayAlerts = False
    wvExcelExec = True

    'ExcelBookを開く
    wvExcelBook = wvExcelApp.Workbooks.Open("C:\temp\test.xlsx")

    'Excel Sheetのセット
    wvExcelSheet1 = wvExcelBook.Worksheets("テスト一覧")

    With wvExcelSheet1
    'セルにデータを設定
    .Cells(1, 1) = "タイトル"
    .Range(.Cells(10, 10, .Cells(20, 20) = "テストデータ1"

        '紙を横置き
        .PageSetup.Orientation = 2

        '拡大縮小割合
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = False

        'ページの設定
        .PageSetup.CenterFooter = "&P / &N ページ"

        '余白調整
        .PageSetup.LeftMargin = wvExcelApp.CentimetersToPoints(1)
        .PageSetup.RightMargin = wvExcelApp.CentimetersToPoints(1)
        .PageSetup.TopMargin = wvExcelApp.CentimetersToPoints(1.5)
        .PageSetup.BottomMargin = wvExcelApp.CentimetersToPoints(1)
        .PageSetup.HeaderMargin = wvExcelApp.CentimetersToPoints(1.3)
        .PageSetup.FooterMargin = wvExcelApp.CentimetersToPoints(0.5)
    End With
            
    ' EXCELのプロセスが残る問題は一旦保留
    If wvExcelExec = True Then wvExcelApp.Quit()
    wvExcelSheet1 = Nothing
    wvExcelBook = Nothing
    wvExcelApp = Nothing

End Function

返信 編集キー/


管理者用

- Child Tree -