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

[[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.

[Casimiro Notevi]

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 Notevi]

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.