uses ShellAPI;

var
  strPictureFilePath: string;
begin
  ShellExecute(Handle, ‘print‘, PChar(strPictureFilePath), nil, nil, SW_SHOW);
end;