tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 印刷制御が上手く動きません。
投稿日: 2011/11/25(Fri) 21:02
投稿者cp.hero
はじめまして。CP.heroです。VB6.0の勉強をはじめ今回VBレスキュー(花ちゃん)のお世話になりますが、”サンプルプログラムでプリンタ設定ダイアログボックスを表示(APIを使って)その1(115)”を実際に動かしたいと思いプログラムを始めましたが上手く行きません。なにぶん初心者で恐れいりますが、ご教授宜しくお願い致します。
動かない部分は 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
はちゃんと定義しているのですが、原因がわかりません。ご教授宜しくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。