エクセルの学校：全文検索：Hyper Estraier： IF

Results of 1 - 1 of about 37670 for IF (0.007 sec.)

[[20090827173404]]: #score: 1591; @digest: 3b5721e22ee41bab6ea8da3e5cf3993b; @id: 45133; @mdate: 2009-08-27T09:02:36Z; @size: 2997; @type: text/plain; #keywords: 止給 (30995), 栓表 (30483), 手挿 (30483), 管延 (29523), 戸内 (28021), 訳部 (28021), 水管 (26533), 水栓 (26192), 給水 (25390), 先確 (18595), collate (16241), 表39 (15497), 他材 (15497), 刷en (15473), 分印 (13432), 表紙 (12622), 紙3 (10933), 挿し (10682), checkbox9 (10268), checkbox7 (9974), 廃止 (9947), 長（ (9777), copies (9689), 表印 (9663), checkbox8 (8928), checkbox6 (8612), 紙") (8239), 料表 (8203), xldialogprint (8108), 紙2 (7971), checkbox5 (7538), し口 (7213); 『このマクロで、手挿し口から印刷を行いたい。』（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("表紙2").PrintOut Copies:=1, Collate:=True If Me.CheckBox9 = True Then Worksheets("表紙3").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("廃止給水管延長（1〜20）").PrintOut Copies:=1, Collate:=True End If If Me.CheckBox7 = True Then Worksheets("廃止給水管延長（1〜39）").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("表紙2").PrintOut Copies:=1, Collate:=True If Me.CheckBox9 = True Then Worksheets("表紙3").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("廃止給水管延長（1〜20）").PrintOut Copies:=1, Collate:=True End If If Me.CheckBox7 = True Then Worksheets("廃止給水管延長（1〜39）").PrintOut Copies:=1, Collate:=True End If End If Unload UserForm1 End Sub ---- 参考: [[20040707235701]]『印刷時の設定[手差し印刷]について』（ハレルヤ） ---- 無理なんですね・・・。ありがとうございました!（sathi） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200908/20090827173404.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ