Microsoft Access 掲示板

 VBA
a="印刷物1"
b="印刷物2"
c=msgbox(a & vbcrlf & b & "印刷しますか？")

if c＝6 then
set d=createobject("shell.application")
set e=createobject("access.application")
with e
.visible=true
d.minimizeall
.opencurrentdatabase("フルパス")

with e.printer
 .leftmargin=0

end with
.docmd.echo false
.docmd.openquery a
.docmd.printout
.docmd.openquery b
.docmd.printout
.docmd echo true

.quit
end with
else
end if

大変申し訳ありません。if文が抜けていました。
if文による分岐をselect case で行いinputbox関数の戻り値を利用して多数の印刷物を印刷出来るものを作りたく思っていますが、コンパクトにするにはどうすれば良いか分かりません。条件分岐事に最小化、余白設定のコードが必要なのか、それを回避する策はあるかが分かりません。ご教授お願い致します。