VB６でCrystalReport８を使ってPrintするには？ (ID:75153)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 昨日夕方に解決しました。 参考にしたのは、 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) これからも、参考にさせてもらいます。 お願いします。