ReportJobProcessingProgress

// winspool.drv
#include <windows.h>

HRESULT ReportJobProcessingProgress(
    HANDLE printerHandle,
    DWORD jobId,
    EPrintXPSJobOperation jobOperation,
    EPrintXPSJobProgress jobProgress
);

<DllImport("winspool.drv", ExactSpelling:=True)>
Public Shared Function ReportJobProcessingProgress(
    printerHandle As IntPtr,   ' HANDLE
    jobId As UInteger,   ' DWORD
    jobOperation As Integer,   ' EPrintXPSJobOperation
    jobProgress As Integer   ' EPrintXPSJobProgress
) As Integer
End Function

' printerHandle : HANDLE
' jobId : DWORD
' jobOperation : EPrintXPSJobOperation
' jobProgress : EPrintXPSJobProgress
Declare PtrSafe Function ReportJobProcessingProgress Lib "winspool.drv" ( _
    ByVal printerHandle As LongPtr, _
    ByVal jobId As Long, _
    ByVal jobOperation As Long, _
    ByVal jobProgress As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

ReportJobProcessingProgress = ctypes.windll.LoadLibrary("winspool.drv").ReportJobProcessingProgress
ReportJobProcessingProgress.restype = ctypes.c_int
ReportJobProcessingProgress.argtypes = [
    wintypes.HANDLE,  # printerHandle : HANDLE
    wintypes.DWORD,  # jobId : DWORD
    ctypes.c_int,  # jobOperation : EPrintXPSJobOperation
    ctypes.c_int,  # jobProgress : EPrintXPSJobProgress
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('winspool.drv')
ReportJobProcessingProgress = Fiddle::Function.new(
  lib['ReportJobProcessingProgress'],
  [
    Fiddle::TYPE_VOIDP,  # printerHandle : HANDLE
    -Fiddle::TYPE_INT,  # jobId : DWORD
    Fiddle::TYPE_INT,  # jobOperation : EPrintXPSJobOperation
    Fiddle::TYPE_INT,  # jobProgress : EPrintXPSJobProgress
  ],
  Fiddle::TYPE_INT)

#[link(name = "winspool.drv")]
extern "system" {
    fn ReportJobProcessingProgress(
        printerHandle: *mut core::ffi::c_void,  // HANDLE
        jobId: u32,  // DWORD
        jobOperation: i32,  // EPrintXPSJobOperation
        jobProgress: i32  // EPrintXPSJobProgress
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("winspool.drv")]
public static extern int ReportJobProcessingProgress(IntPtr printerHandle, uint jobId, int jobOperation, int jobProgress);
"@
$api = Add-Type -MemberDefinition $sig -Name 'winspool.drv_ReportJobProcessingProgress' -Namespace Win32 -PassThru
# $api::ReportJobProcessingProgress(printerHandle, jobId, jobOperation, jobProgress)

#uselib "winspool.drv"
#func global ReportJobProcessingProgress "ReportJobProcessingProgress" sptr, sptr, sptr, sptr
; ReportJobProcessingProgress printerHandle, jobId, jobOperation, jobProgress   ; 戻り値は stat
; printerHandle : HANDLE -> "sptr"
; jobId : DWORD -> "sptr"
; jobOperation : EPrintXPSJobOperation -> "sptr"
; jobProgress : EPrintXPSJobProgress -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "winspool.drv"
#cfunc global ReportJobProcessingProgress "ReportJobProcessingProgress" sptr, int, int, int
; res = ReportJobProcessingProgress(printerHandle, jobId, jobOperation, jobProgress)
; printerHandle : HANDLE -> "sptr"
; jobId : DWORD -> "int"
; jobOperation : EPrintXPSJobOperation -> "int"
; jobProgress : EPrintXPSJobProgress -> "int"

; HRESULT ReportJobProcessingProgress(HANDLE printerHandle, DWORD jobId, EPrintXPSJobOperation jobOperation, EPrintXPSJobProgress jobProgress)
#uselib "winspool.drv"
#cfunc global ReportJobProcessingProgress "ReportJobProcessingProgress" intptr, int, int, int
; res = ReportJobProcessingProgress(printerHandle, jobId, jobOperation, jobProgress)
; printerHandle : HANDLE -> "intptr"
; jobId : DWORD -> "int"
; jobOperation : EPrintXPSJobOperation -> "int"
; jobProgress : EPrintXPSJobProgress -> "int"

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	winspool_drv = windows.NewLazySystemDLL("winspool.drv")
	procReportJobProcessingProgress = winspool_drv.NewProc("ReportJobProcessingProgress")
)

// printerHandle (HANDLE), jobId (DWORD), jobOperation (EPrintXPSJobOperation), jobProgress (EPrintXPSJobProgress)
r1, _, err := procReportJobProcessingProgress.Call(
	uintptr(printerHandle),
	uintptr(jobId),
	uintptr(jobOperation),
	uintptr(jobProgress),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function ReportJobProcessingProgress(
  printerHandle: THandle;   // HANDLE
  jobId: DWORD;   // DWORD
  jobOperation: Integer;   // EPrintXPSJobOperation
  jobProgress: Integer   // EPrintXPSJobProgress
): Integer; stdcall;
  external 'winspool.drv' name 'ReportJobProcessingProgress';

result := DllCall("winspool.drv\ReportJobProcessingProgress"
    , "Ptr", printerHandle   ; HANDLE
    , "UInt", jobId   ; DWORD
    , "Int", jobOperation   ; EPrintXPSJobOperation
    , "Int", jobProgress   ; EPrintXPSJobProgress
    , "Int")   ; return: HRESULT

●ReportJobProcessingProgress(printerHandle, jobId, jobOperation, jobProgress) = DLL("winspool.drv", "int ReportJobProcessingProgress(void*, dword, int, int)")
# 呼び出し: ReportJobProcessingProgress(printerHandle, jobId, jobOperation, jobProgress)
# printerHandle : HANDLE -> "void*"
# jobId : DWORD -> "dword"
# jobOperation : EPrintXPSJobOperation -> "int"
# jobProgress : EPrintXPSJobProgress -> "int"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。