はじめまして。CP.heroです。VB6.0の勉強をはじめ今回VBレスキュー（花ちゃん）のお世話になりますが、”サンプルプログラムでプリンタ設定ダイアログボックスを表示(APIを使って)その１（１１５）”を実際に動かしたいと思いプログラムを始めましたが上手く行きません。なにぶん初心者で恐れいりますが、ご教授宜しくお願い致します。
動かない部分は Ret = OpenPrinter(cboPriSet.Text, hPrinter, ByVal 0&)でエラーメッセージとして、「コンパイルエラーサブまたはファンクションが定義されていません。」と出ます。
Option Explicit

'プリンタ設定ダイアログボックスを表示する（P634）
Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hWnd As Long, ByVal hPrinter As Long) As Long
'プリンタあるいはプリントサーバーのハンドルを取得する(P633)
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
'プリンタオブジェクトをクローズする(P596)
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
はちゃんと定義しているのですが、原因がわかりません。ご教授宜しくお願い致します。

> はじめまして。CP.heroです。VB6.0の勉強をはじめ今回VBレスキュー（花ちゃん）のお世話になりますが、”サンプルプログラムでプリンタ設定ダイアログボックスを表示(APIを使って)その１（１１５）”を実際に動かしたいと思いプログラムを始めましたが上手く行きません。なにぶん初心者で恐れいりますが、ご教授宜しくお願い致します。
> 動かない部分は Ret = OpenPrinter(cboPriSet.Text, hPrinter, ByVal 0&)でエラーメッセージとして、「コンパイルエラーサブまたはファンクションが定義されていません。」と出ます。

> OpenPrinter Lib "winspool.drv"が上手く動いていないようなのですが、原因がわかりません。ご教授宜しくお願い致します。

　　

> 動かない部分は Ret = OpenPrinter(cboPriSet.Text, hPrinter, ByVal 0&)でエラーメッセージとして、「コンパイルエラーサブまたはファンクションが定義されていません。」と出ます。


API 関数の宣言と同じ Form 内にコードを書いていますか？
OpenPrinter の綴りが間違っていませんか？

又、詳しい環境やVB歴を記入して下さい。