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);
for i := 0 to (lista.count - 1) do begin
...
end;
lista.Free;