VFP 愛用者社區

[guku1101]

以下是小弟找到的vb 程式 (檢查印表機有沒有開的程式)
Private Declare Function PrinterMessageBox Lib "winspool.drv" Alias "PrinterMessageBoxA" (ByVal hPrinter As Long, ByVal error As Long, ByVal hwnd As Long, ByVal pText As String, ByVal pCaption As String, ByVal dwType As Long) As Long

Dim err_prn, err1_prn As Long
err1_prn = PrinterMessageBox(hPrinter, err_prn, hwnd, "hello", "打印机", MB_ICONSTOP)
If err_prn = "ERROR_OUT_OF_PAPER" Then
Text1.Text = "缺纸"
Else
Text1.Text = "未就绪"
End If


這是我比對寫的程式
但執行後都會出現變數沒找到請各位前輩不吝賜教~謝謝

DECLARE Integer PrinterMessageBox IN winspool.drv As PrinterMessageBoxA ;
Integer hPrinter , ;
Integer error , ;
Integer hwnd , ;
String pText , ;
String pCaption , ;
Integer dwType
m_a = PrinterMessageBox(hPrinter, error, hwnd, "hello", "打印机", MB_ICONSTOP)

[guku1101]

這是說明~小弟對api的寫法實在生疏請各位大大幫忙
PrinterMessageBox

VFP声明
DECLARE Integer PrinterMessageBox IN winspool.drv As PrinterMessageBoxA ;
Integer hPrinter , ;
Integer error , ;
Integer hwnd , ;
String pText , ;
String pCaption , ;
Integer dwType
说明
在拥有指定打印作业的系统上显示一个打印机出错消息框。如一名用户在远程登录，这种做法便相当有用
返回值
Long，IDOK， IDRETRY 或 IDCANCEL；由用户的输入决定（如消息框在远程系统显示，则肯定是IDOK）
参数表
参数 类型及说明
hPrinter Long，出现错误的打印机的句柄
error Long，ERROR_OUT_OF_PAPER（缺纸）或ERROR_NOT_READY（未就绪）
hwnd Long，指定消息框的父窗口。可以为NULL
pText Long，欲显示的消息正文
pCaption Long，消息框的标题
dwType Long，指定任何一个标准的MessageBox标志。建议使用MB_ICONSTOP 或 MB_RETRYCANCEL 或 MB_SETFOREGROUND