Automatizar el uso de Bullzip PDF Printer

[emailx45]

Otra forma sería utilizar únicamente la DLL de GhostScript (y nada más) para enviar el archivo PDF directamente a la impresión; de este modo, no dependerías de ninguna impresora virtual instalada. Solo necesitarías la DLL de GhostScript (la versión 10.0.8, por ejemplo, ya está disponible en el sitio https://ghostscript.com/releases/gsdnld.html).

Con esto, accederías directamente a la API de GhostScript sin necesidad de instalar ninguna aplicación; bastaría con copiar la DLL para tu uso particular.

Delphi puede cargar la DLL mediante la función "LoadLibrary" y obtener los métodos necesarios a través de "GetProcAddress()"; ambos forman parte de la unidad "WinApi.Windows".

Se trataría de muy pocas líneas de código, unas 100 aproximadamente (ya que tendrías que definir los parámetros, la forma de acceso, las variables, el manejo de errores, etc.), todo ello bastante sencillo.
Aquí tienes un esquema básico para que te hagas una idea de lo fácil que resultaría:

Código Delphi [-]
function ProcessarPdfComGhostscript( const AArquivoOrigem, AArquivoDestino: string; const AGSDllPath: string ): Boolean;

implementation

type
  TGsApiNewInstance    = function( var pinstance: Pointer; caller_handle: Pointer )     : Integer; stdcall;
  TGsApiInitWithArgs   = function( instance: Pointer; argc: Integer; argv: PPAnsiChar ): Integer; stdcall;
  TGsApiExit           = function( instance: Pointer )                                         : Integer; stdcall;
  TGsApiDeleteInstance = procedure( instance: Pointer ); stdcall;

function ProcessarPdfComGhostscript( const AArquivoOrigem, AArquivoDestino: string; const AGSDllPath: string ): Boolean;
var
  LHandle               : HMODULE;
  LGSAPI_New_Instance   : TGsApiNewInstance;
  LGSAPI_Init_with_Args : TGsApiInitWithArgs;
  LGSAPI_Exit           : TGsApiExit;
  LGSAPI_Delete_Instance: TGsApiDeleteInstance;

  LInstance: Pointer;
  LArgs    : array [ 0 .. 5 ] of PAnsiChar;
  LResult  : Integer;

  LProgram: AnsiString;
  LBatch  : AnsiString;
  LNoPause: AnsiString;
  LDevice : AnsiString;
  LOutput : AnsiString;
  LInput  : AnsiString;
begin
  Result := False;
  ...
 try
    @LGSAPI_New_Instance    := GetProcAddress( LHandle, 'gsapi_new_instance' );
    @LGSAPI_Init_with_Args  := GetProcAddress( LHandle, 'gsapi_init_with_args' );
    @LGSAPI_Exit            := GetProcAddress( LHandle, 'gsapi_exit' );
    @LGSAPI_Delete_Instance := GetProcAddress( LHandle, 'gsapi_delete_instance' );
    ..
    if LGSAPI_New_Instance( LInstance, nil ) < 0 then ... // error
      // message ... exit;
    else
    ...
      ...
    LProgram := AnsiString( 'gs' );
      LBatch   := AnsiString( '-dBATCH' );
      LNoPause := AnsiString( '-dNOPAUSE' );
      LDevice  := AnsiString( '-sDEVICE=pdfwrite' );
      LOutput  := AnsiString( '-sOutputFile=' + AArquivoDestino );
      LInput   := AnsiString( AArquivoOrigem );
    ...
    LArgs[ 0 ] := PAnsiChar( LProgram );
      LArgs[ 1 ] := PAnsiChar( LBatch );
      LArgs[ 2 ] := PAnsiChar( LNoPause );
      LArgs[ 3 ] := PAnsiChar( LDevice );
      LArgs[ 4 ] := PAnsiChar( LOutput );
      LArgs[ 5 ] := PAnsiChar( LInput );

      // Executa o processamento do PDF
      LResult := LGSAPI_Init_with_Args( LInstance, 6, @LArgs[ 0 ] );
     ...
      if LResult >= 0 then
      begin
        Result := True;
        // Abre o arquivo resultante no visualizador padrão do Windows
        ShellExecute( 0, 'open', PChar( AArquivoDestino ), nil, nil, SW_NORMAL );
      end  else
      begin
        ///
      end;
      //
     LGSAPI_Exit( LInstance );  // 
    finally
      LGSAPI_Delete_Instance( LInstance );
    end;

  finally
    FreeLibrary( LHandle );
  end;

Código Delphi [-]
uses
  UImprimirGhostscript;

procedure TForm2.btnGhostScriptPrintingClick( Sender: TObject );
var
  LCaminhoDLL      : string;
  LOrigem, LDestino: string;
begin
  randomize;
  //
  (*
Podrías colocar solo el archivo DLL (gsdll32.dll) en cualquier carpeta de tu preferencia; 
¡no necesitarías todos los archivos de la instalación de GhostScript!
*)
  // Ajuste o caminho da DLL conforme a sua instalação do Ghostscript (ex: pasta bin)
  LCaminhoDLL := 'E:\RADProjectsD13\_Temp\Nova pasta (13)\GhostScript\gsdll32.dll';
  LOrigem     := 'E:\DelphiTela.pdf';
  LDestino    := Format( 'E:\%s%.8d.pdf', [ 'NewPDF_', random( word.MaxValue ) ] );

  if ProcessarPdfComGhostscript( LOrigem, LDestino, LCaminhoDLL ) then
    Memo1.Lines.Add( TimeToStr( now ) + ', ' + LOrigem + ', was sent to the printer.' + slinebreak + LDestino );
end;

Aquí estoy usando Chrome como mi aplicación predeterminada para abrir archivos PDF.