印刷マクロでちょっとハマる（Word）

印刷マクロでちょっとハマる（Word）

フォルダ内にたくさんあるWordドキュメントの先頭ページだけを印刷する必要があって（どんな「必要」やねん。）、

ちょろっとマクロ書いて片付けるか！

と意気込んで始めたにもかかわらず、ちょっとハマったので、報告。

先頭ページだけを印刷するマクロ

先頭ページだけを印刷するには、[Document].PrintOutメソッドを用いたら楽勝だと思った。

リスト１

Private Sub test08()
  Dim tgtDoc As Document
  Set tgtDoc = ActiveDocument
  Call tgtDoc.PrintOut(Range:=wdPrintFromTo, From:=1, To:=1)
End Sub

PrintOutメソッドの引数RangeにwdPrintFromToを指定し、From、Toの両方に1を指定。

これで、ドキュメントの1ページ目から1ページ目、すなわち、先頭ページだけを印刷することができるはずだ。

実行

満を持してリスト１を実行してみる。すると、

な…なんだってー!!

あえなく実行時エラーになるのである。

原因は、

ここなのだが……。

おわりに

原因がわかるだろうか……？

私は公式のリファレンスを見るまで、結構な時間ハマりました……。