いつもＶＢレスューを利用させていただいております。ＶＢレスュー6.0「印刷関係」で「スクリー
ンのス
ナップショットをクリップボードに保存及び印刷」を保存をコメントにして印刷のみ実施するプログ
ラムを作
りました。
　デバック機　Win2000では正常に印刷できるのですが、デストリビュータでCABファイルを作成して
別のパソ
コンにローディングしたところ下記エラーが出ます。　
　「実行時エラー　’429’ActiveXコンポーネントはオブジェクトを作成出来ません。」
別のプログラムでは正常な場合も有りました。どのように対策すれば良いでしょうか。どなたか教え
て下さ
い。

ひょっとして下記のせいかもしれません。
OsVer = CreateObject("SysInfo.SYSINFO").OSVersion

Form にSysInfo.SYSINFO (SysInfo.ocx) コントロールを貼り付けて、
それを配布して頂ければ解決すると思います。

又は、VBのランタイムにSysInfo.ocxが含まれているランタイムでご使用下さい。
又、OS限定なら使い分けする必要がないので、削除して下さい。


# エラーの原因究明はまず、Googleで[エラーメッセージ]をキーワードに検索して見て下さい。
　過去のログ No.9466 に同じ質問があります。

ご教授ありがとうございます。
　但し、下記の具体的な方法が判りません。プロジェクト/参照設定、コンポーンエントにも
コントロールボックスにもSysInfo.SYSINFO がありませんが、どこから貼り付けるのでしょうか。

> Form にSysInfo.SYSINFO (SysInfo.ocx) コントロールを貼り付けて、
> それを配布して頂ければ解決すると思います。

> 　但し、下記の具体的な方法が判りません。プロジェクト/参照設定、コンポーンエントにも
> コントロールボックスにもSysInfo.SYSINFO がありませんが、どこから貼り付けるのでしょうか。

お使いのVBが、Professional Edition以上であるかどうかを確認してください。
Learning Editionだと、システム情報コントロール(SysInfo)は使用できません。
hhttp://support.microsoft.com/kb/194784/ja

> ご教授ありがとうございます。
> 　但し、下記の具体的な方法が判りません。プロジェクト/参照設定、コンポーンエントにも
解らなければ、VBのヘルプで SYSINFO.OCX を検索して見てください。

> コントロールボックスにもSysInfo.SYSINFO がありませんが、どこから貼り付けるのでしょうか。

プロジェクト→コンポーネント→コントロール→Microsoft SysInfo Control 6.0 にチェックを
入れて下さい。

因みに貼り付けたらコードも変更して下さい　　　SysInfo1.OSVersion

ありがとうございます。
早速やってみます。結果は2,3日かかります。