[[20090827173404]]　『このマクロで、手挿し口から印刷を行いたい。』（sathi）　ページの最後に飛ぶ

『このマクロで、手挿し口から印刷を行いたい。』（sathi）

 下記のマクロを使用しています。
 checkbox6を指定すると
 プリンタの手挿し口からの紙を印刷するように設定したいと
 思っていますが、印刷画面で手挿しを指定しますと、
 sheets（"表紙"）のみが手挿し口にセットした紙に印刷され
 ほかのシート分は自動排紙口から印刷されてきてしまいます。
 どのように設定したらよいのでしょうか？
 というかマクロで設定できるものなんでしょうか？
 すいませんが、ご教授お願いいたします。

 Private Sub CommandButton1_Click()
  If Me.CheckBox6 = True Then
    If MsgBox("第二原用紙をプリンターにセットしましたか？", vbYesNo + vbQuestion, "出力先確認") = vbYes Then
     If MsgBox("プリンターを変更しますか？", vbYesNo + vbQuestion, "出力先確認") = vbYes Then
       Sheets("表紙").Select
       Application.Dialogs(xlDialogPrint).Show arg1:=2, arg2:=1, arg3:=1
     Else
       Worksheets("表紙").PrintOut Copies:=1, Collate:=True
     End If

     Worksheets("表紙２").PrintOut Copies:=1, Collate:=True

     If Me.CheckBox9 = True Then
        Worksheets("表紙３").PrintOut Copies:=1, Collate:=True
     End If

         単価表印刷

     If Me.CheckBox3 = True Then
         Worksheets("その他材料表").PrintOut Copies:=1, Collate:=True
     End If

    If Me.CheckBox4 = True Then
         水栓表20戸内訳部分印刷
    End If

    If Me.CheckBox5 = True Then
         水栓表39戸内訳部分印刷
    End If

    If Me.CheckBox8 = True Then
         Worksheets("廃止給水管延長（１～２０）").PrintOut Copies:=1, Collate:=True
    End If

    If Me.CheckBox7 = True Then
         Worksheets("廃止給水管延長（１～３９）").PrintOut Copies:=1, Collate:=True
     End If
    End If

  Else
    If MsgBox("プリンターを変更しますか？", vbYesNo + vbQuestion, "出力先確認") = vbYes Then
      Sheets("表紙").Select
      Application.Dialogs(xlDialogPrint).Show arg1:=2, arg2:=1, arg3:=1
    Else
      Worksheets("表紙").PrintOut Copies:=1, Collate:=True
    End If

      Worksheets("表紙２").PrintOut Copies:=1, Collate:=True

    If Me.CheckBox9 = True Then
         Worksheets("表紙３").PrintOut Copies:=1, Collate:=True
    End If

        残土処分部分印刷
        単価表印刷

    If Me.CheckBox3 = True Then
         Worksheets("その他材料表").PrintOut Copies:=1, Collate:=True
    End If

    If Me.CheckBox4 = True Then
         水栓表20戸内訳部分印刷
    End If

    If Me.CheckBox5 = True Then
         水栓表39戸内訳部分印刷
    End If

    If Me.CheckBox8 = True Then
         Worksheets("廃止給水管延長（１～２０）").PrintOut Copies:=1, Collate:=True
    End If

    If Me.CheckBox7 = True Then
         Worksheets("廃止給水管延長（１～３９）").PrintOut Copies:=1, Collate:=True
    End If
  End If

   Unload UserForm1

End Sub

 参考：
[[20040707235701]]『印刷時の設定[手差し印刷]について』（ハレルヤ）

 無理なんですね・・・。
 ありがとうございました！（sathi）

コメント返信：

[ 一覧(最新更新順) ]

[[20090827173404]] 『このマクロで、手挿し口から印刷を行いたい。』（sathi） ページの最後に飛ぶ

[[20090827173404]]　『このマクロで、手挿し口から印刷を行いたい。』（sathi）　ページの最後に飛ぶ