Dllcall from 32 bit compile not working on 64 bit

#include <Array.au3>
#include <WinAPIEx.au3>
 
 
Global Const $DM_OUT_DEFAULT = 1
 
Local $sPrinterName = _GetDefaultPrinter()
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sPrinterName = ' & $sPrinterName & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
Local $iDevModeSize = _DocumentProperties(0, $sPrinterName)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $iDevModeSize = ' & $iDevModeSize & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
Local $ptrDevMode= _WinAPI_CreateBuffer($iDevModeSize);adding 100 due to
Local $tDevMode = DllStructCreate($tagDEVMODE, $ptrDevMode)
DllStructSetData($tDevMode, "Size", DllStructGetSize($tDevMode))
 
;Local $iTestBufferSize = _WinAPI_GetMemorySize($ptrDevMode)
;MsgBox(4096, "Memory Size", $iTestBufferSize)
;_WinAPI_DisplayStruct($tDevMode, $tagDEVMODE)
 
_DocumentProperties(0, $sPrinterName, $tDevMode, $DM_OUT_DEFAULT)
 
_WinAPI_DisplayStruct($tDevMode, $tagDEVMODE)
 
 
$tDevMode = 0
_WinAPI_FreeMemory($ptrDevMode)
 
Exit
 
 
Func _DocumentProperties($hPrinter, $sPrinter, $tDevModeOutput = 0, $iFunc = 0)
    Local $ptrDevModeInput = DllStructGetPtr($tDevModeOutput)
    If $iFunc <> 0 Then MsgBox(0, "Pointer", $ptrDevModeInput)
    Local $ptrDevModeOut = $ptrDevModeInput
    Local $aResult = DllCall("Winspool.drv", "long", "DocumentPropertiesW", "hwnd", 0, "ptr", 0, "wstr", $sPrinter, "ptr", $ptrDevModeOut, "ptr", 0, "dword", $iFunc)
    ;_ArrayDisplay($aResult)
    Return $aResult[0]
EndFunc
 
 
 
Func _GetDefaultPrinter()
    Local $tBufferSize = DllStructCreate("dword")
    DllCall("Winspool.drv", "long", "GetDefaultPrinterW", "wstr", 0, "ptr", DllStructGetPtr($tBufferSize))
    Local $tPrinterName = DllStructCreate("wchar[" & DllStructGetData($tBufferSize, 1) & "]")
    DllCall("Winspool.drv", "long", "GetDefaultPrinterW", "ptr", DllStructGetPtr($tPrinterName), "ptr", DllStructGetPtr($tBufferSize))
    Local $sPrinter = DllStructGetData($tPrinterName, 1)
    $tPrinterName = 0
    $tBufferSize = 0
    Return $sPrinter
EndFunc