百思不得其解，GetForm出现“DLL调用约定错误”

[西雀]

Public Function ReturnForm(pFormName As String) As FORM_INFO_1
Dim PrinterHandle As Long ' 打印机句柄
Dim pFI1 As FORM_INFO_1
Dim Temp() As Byte
Dim BytesNeeded As Long
Dim RetVal As Long

If OpenPrinter(Printer.DeviceName, PrinterHandle, 0&) = 0 Then Exit Function ' 返回一个打印机句柄

ReDim Temp(0)
RetVal = GetForm(PrinterHandle, pFormName, 1, Temp(0), 0&, BytesNeeded)
ReDim Temp(BytesNeeded)

If GetForm(PrinterHandle, pFormName, 1, Temp(0), BytesNeeded, BytesNeeded) = 0 Then
Debug.Print "错误:" & Err.LastDllError
Else
Debug.Print "成功返回" & pFormName
End If
Call CopyMemory(pFI1, Temp(0), BytesNeeded)
ReturnForm = pFI1
Call ClosePrinter(PrinterHandle)
End Function

该函数能正常返回，但对于某些特定的pFormName，却会出现“DLL调用约定错误”，比如：
ReturnForm "A3 Extra Transvers"时就会出现此错误
ReturnForm "A3 Extra Transver" 就不会出现此错误("A3 Extra Transver"是我自定义的Form)

而且错误是在函数正常结束后出现的，此时函数也已经正常返回了pFI1的值。

代码方面我想是不会有问题的，实在不知道这个错误从何而来。

[西雀]

一天过去了..

[西雀]

楼上说的我测试过，不是那个原因

[大熊猫侯佩]

1 运行的操作系统？

2 运行出错的话单步调试出错么？

[Dunzip]

可能是打印机器不支持这种纸张大小，或者打印机处于脱机状态。

[西雀]

XP
单步调试也出现错误，他总是在函数成功返回后出错