StartXpsPrintJob1

// XPSPRINT.dll
#include <windows.h>

HRESULT StartXpsPrintJob1(
    LPCWSTR printerName,
    LPCWSTR jobName,
    LPCWSTR outputFileName,
    HANDLE progressEvent,
    HANDLE completionEvent,
    IXpsPrintJob** xpsPrintJob,
    IXpsOMPackageTarget** printContentReceiver
);

<DllImport("XPSPRINT.dll", ExactSpelling:=True)>
Public Shared Function StartXpsPrintJob1(
    <MarshalAs(UnmanagedType.LPWStr)> printerName As String,   ' LPCWSTR
    <MarshalAs(UnmanagedType.LPWStr)> jobName As String,   ' LPCWSTR
    <MarshalAs(UnmanagedType.LPWStr)> outputFileName As String,   ' LPCWSTR
    progressEvent As IntPtr,   ' HANDLE
    completionEvent As IntPtr,   ' HANDLE
    xpsPrintJob As IntPtr,   ' IXpsPrintJob** out
    printContentReceiver As IntPtr   ' IXpsOMPackageTarget** out
) As Integer
End Function

' printerName : LPCWSTR
' jobName : LPCWSTR
' outputFileName : LPCWSTR
' progressEvent : HANDLE
' completionEvent : HANDLE
' xpsPrintJob : IXpsPrintJob** out
' printContentReceiver : IXpsOMPackageTarget** out
Declare PtrSafe Function StartXpsPrintJob1 Lib "xpsprint" ( _
    ByVal printerName As LongPtr, _
    ByVal jobName As LongPtr, _
    ByVal outputFileName As LongPtr, _
    ByVal progressEvent As LongPtr, _
    ByVal completionEvent As LongPtr, _
    ByVal xpsPrintJob As LongPtr, _
    ByVal printContentReceiver As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

StartXpsPrintJob1 = ctypes.windll.xpsprint.StartXpsPrintJob1
StartXpsPrintJob1.restype = ctypes.c_int
StartXpsPrintJob1.argtypes = [
    wintypes.LPCWSTR,  # printerName : LPCWSTR
    wintypes.LPCWSTR,  # jobName : LPCWSTR
    wintypes.LPCWSTR,  # outputFileName : LPCWSTR
    wintypes.HANDLE,  # progressEvent : HANDLE
    wintypes.HANDLE,  # completionEvent : HANDLE
    ctypes.c_void_p,  # xpsPrintJob : IXpsPrintJob** out
    ctypes.c_void_p,  # printContentReceiver : IXpsOMPackageTarget** out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('XPSPRINT.dll')
StartXpsPrintJob1 = Fiddle::Function.new(
  lib['StartXpsPrintJob1'],
  [
    Fiddle::TYPE_VOIDP,  # printerName : LPCWSTR
    Fiddle::TYPE_VOIDP,  # jobName : LPCWSTR
    Fiddle::TYPE_VOIDP,  # outputFileName : LPCWSTR
    Fiddle::TYPE_VOIDP,  # progressEvent : HANDLE
    Fiddle::TYPE_VOIDP,  # completionEvent : HANDLE
    Fiddle::TYPE_VOIDP,  # xpsPrintJob : IXpsPrintJob** out
    Fiddle::TYPE_VOIDP,  # printContentReceiver : IXpsOMPackageTarget** out
  ],
  Fiddle::TYPE_INT)

#[link(name = "xpsprint")]
extern "system" {
    fn StartXpsPrintJob1(
        printerName: *const u16,  // LPCWSTR
        jobName: *const u16,  // LPCWSTR
        outputFileName: *const u16,  // LPCWSTR
        progressEvent: *mut core::ffi::c_void,  // HANDLE
        completionEvent: *mut core::ffi::c_void,  // HANDLE
        xpsPrintJob: *mut *mut core::ffi::c_void,  // IXpsPrintJob** out
        printContentReceiver: *mut *mut core::ffi::c_void  // IXpsOMPackageTarget** out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("XPSPRINT.dll")]
public static extern int StartXpsPrintJob1([MarshalAs(UnmanagedType.LPWStr)] string printerName, [MarshalAs(UnmanagedType.LPWStr)] string jobName, [MarshalAs(UnmanagedType.LPWStr)] string outputFileName, IntPtr progressEvent, IntPtr completionEvent, IntPtr xpsPrintJob, IntPtr printContentReceiver);
"@
$api = Add-Type -MemberDefinition $sig -Name 'XPSPRINT_StartXpsPrintJob1' -Namespace Win32 -PassThru
# $api::StartXpsPrintJob1(printerName, jobName, outputFileName, progressEvent, completionEvent, xpsPrintJob, printContentReceiver)

#uselib "XPSPRINT.dll"
#func global StartXpsPrintJob1 "StartXpsPrintJob1" sptr, sptr, sptr, sptr, sptr, sptr, sptr
; StartXpsPrintJob1 printerName, jobName, outputFileName, progressEvent, completionEvent, xpsPrintJob, printContentReceiver   ; 戻り値は stat
; printerName : LPCWSTR -> "sptr"
; jobName : LPCWSTR -> "sptr"
; outputFileName : LPCWSTR -> "sptr"
; progressEvent : HANDLE -> "sptr"
; completionEvent : HANDLE -> "sptr"
; xpsPrintJob : IXpsPrintJob** out -> "sptr"
; printContentReceiver : IXpsOMPackageTarget** out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "XPSPRINT.dll"
#cfunc global StartXpsPrintJob1 "StartXpsPrintJob1" wstr, wstr, wstr, sptr, sptr, sptr, sptr
; res = StartXpsPrintJob1(printerName, jobName, outputFileName, progressEvent, completionEvent, xpsPrintJob, printContentReceiver)
; printerName : LPCWSTR -> "wstr"
; jobName : LPCWSTR -> "wstr"
; outputFileName : LPCWSTR -> "wstr"
; progressEvent : HANDLE -> "sptr"
; completionEvent : HANDLE -> "sptr"
; xpsPrintJob : IXpsPrintJob** out -> "sptr"
; printContentReceiver : IXpsOMPackageTarget** out -> "sptr"

; HRESULT StartXpsPrintJob1(LPCWSTR printerName, LPCWSTR jobName, LPCWSTR outputFileName, HANDLE progressEvent, HANDLE completionEvent, IXpsPrintJob** xpsPrintJob, IXpsOMPackageTarget** printContentReceiver)
#uselib "XPSPRINT.dll"
#cfunc global StartXpsPrintJob1 "StartXpsPrintJob1" wstr, wstr, wstr, intptr, intptr, intptr, intptr
; res = StartXpsPrintJob1(printerName, jobName, outputFileName, progressEvent, completionEvent, xpsPrintJob, printContentReceiver)
; printerName : LPCWSTR -> "wstr"
; jobName : LPCWSTR -> "wstr"
; outputFileName : LPCWSTR -> "wstr"
; progressEvent : HANDLE -> "intptr"
; completionEvent : HANDLE -> "intptr"
; xpsPrintJob : IXpsPrintJob** out -> "intptr"
; printContentReceiver : IXpsOMPackageTarget** out -> "intptr"

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

var (
	xpsprint = windows.NewLazySystemDLL("XPSPRINT.dll")
	procStartXpsPrintJob1 = xpsprint.NewProc("StartXpsPrintJob1")
)

// printerName (LPCWSTR), jobName (LPCWSTR), outputFileName (LPCWSTR), progressEvent (HANDLE), completionEvent (HANDLE), xpsPrintJob (IXpsPrintJob** out), printContentReceiver (IXpsOMPackageTarget** out)
r1, _, err := procStartXpsPrintJob1.Call(
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(printerName))),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(jobName))),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(outputFileName))),
	uintptr(progressEvent),
	uintptr(completionEvent),
	uintptr(xpsPrintJob),
	uintptr(printContentReceiver),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function StartXpsPrintJob1(
  printerName: PWideChar;   // LPCWSTR
  jobName: PWideChar;   // LPCWSTR
  outputFileName: PWideChar;   // LPCWSTR
  progressEvent: THandle;   // HANDLE
  completionEvent: THandle;   // HANDLE
  xpsPrintJob: Pointer;   // IXpsPrintJob** out
  printContentReceiver: Pointer   // IXpsOMPackageTarget** out
): Integer; stdcall;
  external 'XPSPRINT.dll' name 'StartXpsPrintJob1';

result := DllCall("XPSPRINT\StartXpsPrintJob1"
    , "WStr", printerName   ; LPCWSTR
    , "WStr", jobName   ; LPCWSTR
    , "WStr", outputFileName   ; LPCWSTR
    , "Ptr", progressEvent   ; HANDLE
    , "Ptr", completionEvent   ; HANDLE
    , "Ptr", xpsPrintJob   ; IXpsPrintJob** out
    , "Ptr", printContentReceiver   ; IXpsOMPackageTarget** out
    , "Int")   ; return: HRESULT

●StartXpsPrintJob1(printerName, jobName, outputFileName, progressEvent, completionEvent, xpsPrintJob, printContentReceiver) = DLL("XPSPRINT.dll", "int StartXpsPrintJob1(char*, char*, char*, void*, void*, void*, void*)")
# 呼び出し: StartXpsPrintJob1(printerName, jobName, outputFileName, progressEvent, completionEvent, xpsPrintJob, printContentReceiver)
# printerName : LPCWSTR -> "char*"
# jobName : LPCWSTR -> "char*"
# outputFileName : LPCWSTR -> "char*"
# progressEvent : HANDLE -> "void*"
# completionEvent : HANDLE -> "void*"
# xpsPrintJob : IXpsPrintJob** out -> "void*"
# printContentReceiver : IXpsOMPackageTarget** out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。