お世話になります。
OS Windows XP SP2
ツール VB6 SP6＋Crystal Reports XI
を使って社内業務アプリを開発しています。
社内のプリンターが富士通のXL5900というレーザープリンターと
富士ゼロックスApeosPort-ⅡC5400の２種類に分かれており、
前者のみユニット指定(手差し)する必要が発生しました
(以前は同アプリをVB4＋クリレポ4.6で開発したのですが、その時は印刷設定を分けた2種類のｒｐｔファイルを作成して対応しました、XIでは印刷設定がききません)
方法をお教えください。よろしくお願いいたします。
抜粋ですが、以下のソースで現在動いています
' オブジェクト宣言
Dim CrystalApplication As CRAXDRT.Application
Dim Report As CRAXDRT.Report
' Application オプジェクト生成
Set CrystalApplication = CreateObject("Crystalruntime.Application")
' Report オブジェクト生成
Set Report = CrystalApplication.OpenReport(***.rpt, 1)
' MDB指定
Report.Database.Tables(1).ConnectionProperties.Item("Database Name") = *****.mdb
' デフォルトプリンター指定
Report.SelectPrinter "DriverName", "DeviceName", "Port"
' 印刷方向を指定
Report.PaperOrientation = crPortrait
' プリンターへ出力
Report.PrintOut False, 1, False, 1, 999
'オブジェクト解放
Set Report = Nothing
Set CrystalApplication = Nothing
Edited by: hitoshi isomura on Aug 19, 2008 3:11 AM
Edited by: hitoshi isomura on Aug 19, 2008 3:13 AM