No76381.ＶＢＡでレポートを指定プリンタで印刷する方法について

OS:Xp
Access Version:2003

お世話になっております。
一日に何度も申し訳ありませんがお願い致します。

ＶＢＡを使用してレポートごとに指定プリンタで印刷を行いたいと思います。
（ページ設定は除いた形でお願いします）
調べたらプレビューにして指定プリンタにする方法までは見つける事ができました。

Dim rpt As Report
DoCmd.OpenReport ReportName:="レポート名", View:=acViewPreview
Set rpt = Reports("レポート名")
rpt.Printer = Application.Printers("プリンタ名")

安易な考えなのですが

DoCmd.OpenReport ReportName:="レポート名", View:=acViewPreview　を
DoCmd.OpenReport ReportName:="レポート名", View:=acNormal　　 に

するだけでよいと思ったのですが、印刷できないので違うようです。
直接印刷させる場合は、どの様に記述すればよいのでしょうか？
それともプレビューにしないと変更できないのでしょうか？

宜しくお願い致します。

> OS:Xp
> Access Version:2003
>
> お世話になっております。
> 一日に何度も申し訳ありませんがお願い致します。
>
> ＶＢＡを使用してレポートごとに指定プリンタで印刷を行いたいと思います。
> （ページ設定は除いた形でお願いします）
> 調べたらプレビューにして指定プリンタにする方法までは見つける事ができました。
>
> Dim rpt As Report
> DoCmd.OpenReport ReportName:="レポート名", View:=acViewPreview
> Set rpt = Reports("レポート名")
> rpt.Printer = Application.Printers("プリンタ名")
>
> 安易な考えなのですが
>
> DoCmd.OpenReport ReportName:="レポート名", View:=acViewPreview　を
> DoCmd.OpenReport ReportName:="レポート名", View:=acNormal　　 に
>
> するだけでよいと思ったのですが、印刷できないので違うようです。
> 直接印刷させる場合は、どの様に記述すればよいのでしょうか？
> それともプレビューにしないと変更できないのでしょうか？
>
> 宜しくお願い致します。

はじめまして
たぶん。下記でいいかと思われますが・・・・

DoCmd.OpenReport "レポート名", acPreview, , "ID ='" & ID（テキスト名） & "'"
DoCmd.PrintOut acPages, Screen.ActiveReport.Page, Screen.ActiveReport.Page

四苦八苦さん、はじめまして。
お世話になります。


> たぶん。下記でいいかと思われますが・・・・
>
> DoCmd.OpenReport "レポート名", acPreview, , "ID ='" & ID（テキスト名） & "'"
> DoCmd.PrintOut acPages, Screen.ActiveReport.Page, Screen.ActiveReport.Page

ここでいう ID や テキスト名 というのは何が該当する部分なのでしょうか？
理解できず申し訳ありませんが、宜しくお願い致します。

> 四苦八苦さん、はじめまして。
> お世話になります。
>
>
> > たぶん。下記でいいかと思われますが・・・・
> >
> > DoCmd.OpenReport "レポート名", acPreview, , "ID ='" & ID（テキスト名） & "'"
> > DoCmd.PrintOut acPages, Screen.ActiveReport.Page, Screen.ActiveReport.Page
>
> ここでいう ID や テキスト名 というのは何が該当する部分なのでしょうか？
> 理解できず申し訳ありませんが、宜しくお願い致します。

"ID ='" & ID（テキスト名） & "'"
"ID ='はテーブルの方のID
ID（テキスト名）は、フォームでアクティブのIDです。もちろんこの場合は、文字型です。
ただし、これを指定しない場合は、全て印刷するかもしれません。
あと、フォームの概要がわからないので、余り詳しくは説明せきません。

希望するプリンターで印刷できない？
printerオブジェクトでプリンターを変更するには
該当プリンターが開いてなければならないのでは？
よって
プリンター設定後、DoCmd.OpenReport をすればできないでしょうか？
もっとも当方は最初
デザインで開く(不可視)→プリンター設定→DoCmd.OpenReportでやってます

マロンさん、お世話になります。

> 希望するプリンターで印刷できない？
> printerオブジェクトでプリンターを変更するには
> 該当プリンターが開いてなければならないのでは？

ここまではなんとか理解しました。

> よってプリンター設定後、DoCmd.OpenReport をすればできないでしょうか？
> もっとも当方は最初デザインで開く(不可視)→プリンター設定→DoCmd.OpenReportでやってます

大変あつかましいお願いなのですが、不可視した形で記述例を書いて頂けると嬉しいのですが。
無理であれば、少し勉強してみます。

お願い致します。

これですか？
DoCmd.OpenReport "レポート名", acViewDesign, , , acHidden
>　　　　　　　　　　　　　　　　　　　　　　　　--------

四苦八苦さん、マロンさん

遅くなって申し訳ありませんでした。
出来るようになるまで時間が掛かってしまいました。

おかげさまで出来る様になりました。
色々と助言頂いてありがとうございます。

また機会があれば宜しくお願い致します。