VB６でCrystalReport８を使ってPrintするには？

解決

川崎健大 2002-01-12 03:34:55 No: 75152

はじめまして。
ＶＢをはじめて、３日目の初心者です（＾＾；
全くの素人なので、失礼な質問かもしれませんが、
宜しくお願いします。ｍ（＿＿）ｍ

環境
    ＶＢ６．０
    Crystalreports８
    ACCESS  2000（最終的には  ORACLE）

を使っています。

VBのアプリにある印刷ボタンからレポート（CrystalReports）を
印刷しようとしています。

kkkさんの 2001/07/27(金) 14:21:33
の過去レスと同じ事をしてみたいのですが、
出力ができないのです。
というか、全くCrystalReportsとアクセスできていないのです。
kkkさん、弟子さん、皆さん。
どうぞ、情報の受け渡しから印刷までを、お教えください。

大変ずうずうしいかと思いますが、
宜しくお願いします。

質問者本人 2002-01-13 01:24:27 No: 75153

昨日夕方に解決しました。
参考にしたのは、

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)
これからも、参考にさせてもらいます。
お願いします。