はじめまして。
ＶＢをはじめて、３日目の初心者です （＾＾；
全くの素人なので、失礼な質問かもしれませんが、
宜しくお願いします。 ｍ（＿ ＿）ｍ
環境
ＶＢ６．０
Crystalreports８
ACCESS 2000（最終的には ORACLE）
を使っています。
VBのアプリにある印刷ボタンからレポート（CrystalReports）を
印刷しようとしています。
kkkさんの 2001/07/27(金) 14:21:33
の過去レスと同じ事をしてみたいのですが、
出力ができないのです。
というか、全くCrystalReportsとアクセスできていないのです。
kkkさん、弟子さん、皆さん。
どうぞ、情報の受け渡しから印刷までを、お教えください。
大変ずうずうしいかと思いますが、
宜しくお願いします。
昨日夕方に解決しました。
参考にしたのは、
Y.SAKさんの
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_t14.htm
です。
同様のところで詰まった方、参考にしてください。
（こんな所で引っかからないですねぇ。）
Private Sub PRINT_Click()
Dim rti As String
Dim rpt As String
Dim ppre As String
Dim cpis As String
Dim dsav As String
Dim where As String
rti = "レポートタイトル"
rpt = "クリスタルレポート名.rpt"
ppre = 1 'プレビュー
cpis = 1
dsav = 1 'データ保存
'** 印刷
クリスタルレポートのオブジェクト名.ReportFileName = rpt
クリスタルレポートのオブジェクト名.ReportSource =0
クリスタルレポートのオブジェクト名.Destination = ppre
クリスタルレポートのオブジェクト名.PrinterCopies = cpis
クリスタルレポートのオブジェクト名.WindowTitle = rti
クリスタルレポートのオブジェクト名.Action = 1
End Sub
勉強不足です（T^T)
これからも、参考にさせてもらいます。
お願いします。