- PR -

印刷プレビュー

1
投稿者投稿内容
あまのじゃく
会議室デビュー日: 2003/06/11
投稿数: 7
投稿日時: 2003-09-01 11:32

frmmenu画面から「印刷プレビューボタン」を押すとfrmmiraiの印刷プレビューが表示される仕組みになっています。

frmmenu は　VB6でいうFORM1
frmmiraiは VB6でいうFORM2
frmmiraiで印刷の設定をしている

こういう現象でなやんでます。
frmmenu画面の「印刷プレビューボタン」を押して、そのまま印刷のプレビューが表示されるまでパソコンをいじらなかったら、印刷プレビューが正常にでるのですが、
例えば、frmmenu画面の「印刷プレビューボタン」を押した後にexcelとかその他のアプリをActiveの状態にすると、【オブジェクト参照がオブジェクト インスタンスに設定されていません。】が発生します。

この現象を直して（その他のアプリがActive状態でも大丈夫なように）印刷プレビューをだしたいのですが、
どうしたら、直るのか全然分からないので教えてください。３日悩んでます。

エラーは★　★で出ています。
多分原因は☆　☆だと思われます。

'帳票のプレビュー
Dim rp As New MiraiRpt() 'メインレポート
Dim fm As frmMenu
DIM mi AS frmmirai
Dim pf As NewCrystalDecisions.Shared.ParameterField() 'ParameterField
Dim pfs As New CrystalDecisions.Shared.ParameterFields() 'ParameterFields
Dim pv As New CrystalDecisions.Shared.ParameterDiscreteValue() 'パラメータの値

'frmMenuを参照
☆fm = frmMenu.ActiveForm☆
★rp.SetDataSource(fm.DsShop1)★
1

スキルアップ／キャリアアップ（JOB@IT）