Imprimir con ShellExecute

[Neftali [Germán.Estévez]]

Deberás realizar un "proproceso" para obtener el nombre completo de uno o varios documentos que puedan existir que cumpan esa especificación o máscara y luego una vez que tengas el nombre (o nombres) completo lanzas la impresión de la misma manera que hasta ahora.

Si conoces el directorio donde debe estar el fichero, con este procedimiento que hay en la sección de trucos del club.

Si haces una llamada del estilo a esta, debería funcionar:

Código Delphi [-]
var
  lista: TStrings;
  i:Integer;
begin
  lista := TStringList.Create;
  BuscarArchivos('C:\Listados', '001_01_*.pdf', faAnyFile, lista);

  // recorrer la lista
  for i := 0 to (lista.count - 1) do begin
    // para cada uno imprimir con SHELLEXECUTE
    // fileName == lista[i]
    ...
  end;

  // liberar
  lista.Free;