none
PrintOut、PrintPreviewメソッドが実行されれない RRS feed

  • 質問

  • 下記、コードにおいて、PrintOut、PrintPreviewメソッドが実行されない現象が発生しております。
    デバックを行ってもとくにエラーが発生せず、処理がスルーされてしまいます。
    原因の可能性および解決方法をご教授いただけると幸いです。

    ・環境
     
    Windows10
    64ビット
    Excel2016

     
    ・コード
     
    ' -------------------------------------
    ' 配列に印刷対象のシートを定義
    ' -------------------------------------
    Dim Target() As String
    ReDim Target(list.Count - 1)
    For i = 0 To list.Count - 1
        Target(i) = list.Item(i + 1)
    Next i
    ' -------------------------------------
    ' 印刷処理フォームで選択された内容に応じて
    ' 印刷or印刷プレビュー処理を実行
    ' -------------------------------------
    If strFunc2 = "PrintOut" Then
        Application.ScreenUpdating = False
        Sheets(Target).PrintOut  ←★問題の箇所★
        Application.ScreenUpdating = True
    ElseIf strFunc2 = "PrintPreview" Then
        Sheets(Target).PrintPreview  ←★問題の箇所★
    End If
    2016年12月13日 1:39

回答

  • Targetという変数に代入された値の中に該当するシート名がない場合は、エラーになるはずで、正しく配列で代入されていたとして、完全スルーするのは、印刷できるものが何もない状態なのではないでしょうか?

    ・コード全体が不明なので、とりあえず、エラーになった時、ローカルウィンドウでTaregetに正しいシート名が代入されている確認してみて下さい。

    ・その該当のシートに印刷できるものがあることを確認して下さい。

    2016年12月14日 11:40

すべての返信

  • Yasushi_Niwa さん、投稿ありがとうございます。

    フォーラム オペレーターの立花楓です。

    今回、Office 2016 フォーラムに投稿いただいた内容は、 Visual Basic for Application(VBA) フォーラムにてご質問いただいたほうが情報が集まりやすいと思いますので、しばらくお時間をおいてから移動させていただきます。

    ・Visual Basic for Application(VBA)
    https://social.msdn.microsoft.com/Forums/ja-JP/home?category=vbajp&filter=alltypes&sort=lastpostdesc

    今後、参考になる情報がありましたら、投稿者からの [回答としてマーク] をお願いします。


    TechNet Community Support 立花楓

    2016年12月13日 1:58
    モデレータ
  • 立花楓 様

    ご返信ありがとうございます。

    内容確認いたしました。

    ご配慮、感謝いたします。

    お疲れ様ですが、ご対応をお願いいたします。

    2016年12月13日 2:44
  • Targetという変数に代入された値の中に該当するシート名がない場合は、エラーになるはずで、正しく配列で代入されていたとして、完全スルーするのは、印刷できるものが何もない状態なのではないでしょうか?

    ・コード全体が不明なので、とりあえず、エラーになった時、ローカルウィンドウでTaregetに正しいシート名が代入されている確認してみて下さい。

    ・その該当のシートに印刷できるものがあることを確認して下さい。

    2016年12月14日 11:40