¿Por qué ShellExecute imprime pdf en win8 y no en win7?

[Casimiro Noteví]

Empezado por Waldo

Código Delphi [-]ShellExecute(0, nil, 'calc.exe', '', '', SW_SHOWNORMAL);


esa instrucción si me la ejecuta en las otras maquinas pero la de Print no, realmente ya me siento desesperado.

¿La de Print?

[[Waldo]]

Empezado por Casimiro Notevi

¿La de Print?

Amigo me refiero al código inicial que puse es una instrucción para imprimir un archivo pdf, me funciona en windows 8 pero en 7 no.

[The_Duke]

Revisa que el servicio de cola de imprecion esta activado y que tenga impresora instalada

[[Waldo]]

Empezado por The_Duke

Revisa que el servicio de cola de imprecion esta activado y que tenga impresora instalada

Gracias por contestar, Tengo instalado varia impresoras que el mismo sistema utiliza sin problemas, también esta instalado el programa asociado al archivo en este caso el pdf, la cola de impresión esta vacía, y eso sucede en las otras dos maquinas que utilizan windows 7, ya revise permisos del ejecutable, todas las maquinas son a 32 bits, donde si funciona es en windows 8, y es precisamente donde se programa en delphi 7.

[Casimiro Noteví]

Empezado por Waldo

Amigo me refiero al código inicial que puse es una instrucción para imprimir un archivo pdf, me funciona en windows 8 pero en 7 no.

Bueno, todo eso lo sabes tú, pero no es lo que has preguntado al inicio.

[[Waldo]]

Empezado por Casimiro Notevi

Bueno, todo eso lo sabes tú, pero no es lo que has preguntado al inicio.

ok lo expongo de nuevo...

Código Delphi [-]
ShellExecute(Self.Handle,'print',PChar('archivo.pdf'),NIL,NIL,0);

esta instrucción me funciona bien en windows 8, y es el equipo donde se programa.

pero cuando el ejecutable es llevado a otra pc no funciona, de hecho no marca error siquiera, simplemente es como si no existiera la instrucción.

pero cuando utilizo

Código Delphi [-]
ShellExecute(0, nil, 'calc.exe', '', '', SW_SHOWNORMAL);

si funciona en todas las maquinas

[ecfisa]

Hola Waldo.

De lo leído del hilo quedaría revisar la existencia, el nombre y la ruta del archivo .PDF en los equipos en que no ejecuta la impresión. Si ShellExecute recibe un nombre de archivo inválido no mostrará error de ningún tipo pero no realizará la acción.

Para salir de dudas proba de la siguiente forma:

Código Delphi [-]
procedure PrintPDF(aFileName: TFileName);
begin
  if not FileExists(aFileName) then
    raise Exception.Create('Error en la ruta o el nombre del archivo');
  ShellExecute(Screen.ActiveForm.Handle, 'print', PChar(aFileName), nil ,nil, 0)
end;

// llamada:
...
begin
  PrintPDF('archivo.pdf');
end;

Saludos

[[Waldo]]

Empezado por ecfisa

Hola Waldo.

De lo leído del hilo quedaría revisar la existencia, el nombre y la ruta del archivo .PDF en los equipos en que no ejecuta la impresión. Si ShellExecute recibe un nombre de archivo inválido no mostrará error de ningún tipo pero no realizará la acción.

Para salir de dudas proba de la siguiente forma:

Código Delphi [-]
procedure PrintPDF(aFileName: TFileName);
begin
  if not FileExists(aFileName) then
    raise Exception.Create('Error en la ruta o el nombre del archivo');
  ShellExecute(Screen.ActiveForm.Handle, 'print', PChar(aFileName), nil ,nil, 0)
end;

// llamada:
...
begin
  PrintPDF('archivo.pdf');
end;

Saludos

Utilice el código sugerido, no me arroja ningún error, ya verifique manualmente que el archivo existe y que la dirección del archivo a imprimir es correcto, y nada lo ignora, pero cuando lo hago en la pc donde lo programo funciona perfecto.

[[Waldo]]

Logre solucionarlo, curiosamente cuando me iba a la carpeta de los archivos pdf, y lo ejecutaba abría el acrobat sin problemas por lo que suponía que estaba asociado el archivo, hasta que utilice este código,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 errorcode: integer;
begin
 errorcode :=
  ShellExecute(0, 'open', pchar('c:\test.txt'), nil, nil, SW_NORMAL);
 case errorcode of
  2:showmessage('file not found');
  3:showmessage('path not found');
  5:showmessage('access denied');
  8:showmessage('not enough memory');
  32:showmessage('dynamic-link library not found');
  26:showmessage('sharing violation');
  27:showmessage('filename association incomplete or invalid');
  28:showmessage('DDE request timed out');
  29:showmessage('DDE transaction failed');
  30:showmessage('DDE busy');
  31:showmessage('no application associated with the given filename extension');
 end;

que me ayudo claramente que era lo que sucedía. y Bingo según el sistema no hacia ninguna aplicación asociada al archivo ( raro) por lo que tuve que renacer la asociación de archivo y listo. Gracias a todos por el interés y su tiempo.