ACCESSの印刷ダイアログについて

いつも大変お世話になっております。
レポートをFILTER(県名)で抽出した状態でプレビューしたいと思い以下のようにPGを組みました。
DoCmd.OpenReport "レポートR", acViewPreview
Reports!レポートR.Filter = "[県名] Like '*" & txtbox_県名1 & "*'"
Reports!レポートR.FilterOn = True
プレビューはうまくいきましたが、この抽出した状態で印刷したいのですがどうすればいいのでしょうか。また、印刷の前に印刷ダイアログをだしたいと思い、
DoCmd.SelectObject acReport, "レポートR", False
DoCmd.RunCommand acCmdPrint
と組んだのですが全件印刷されてしまいます。
ご教授宜しくお願いします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2007/05/08 00:01

DoCmd.OpenReport "レポートR", acViewPreview,,"[県名] Like '*" & txtbox_県名1 & "*'"

DoCmd.RunCommand acCmdPrint
でよろしいのでは？

この回答へのお礼

有難うございます。

お礼日時：2007/05/08 23:05