13 respuestas en este tema

[Sergio]

Tengo el siguiente problema y no se por donde tirar:

Resulta que cierta impresora (kyocera) que admite elegir la bandeja de papel, cuando por programa vas y cambias de impresora del sistema (para poder imprimir un excel y me genere un PDF) pues al volver luego a la kyocera te llega (en delphi) con la "bandeja por defecto" en lugar de la 3, que es la que tiene en las propiedades del windows.

Más en detalle: Kyocera con la bandeja 3 es mi impresora por defecto de windows, entro al programa y efectivamente es la impresora por defecto de mi aplicación, y si pido ver sus propiedades, la bandeja es la correcta, la 3. Hasta aquí 100% perfecto.

Ahora, le digo al programa que me convierta un documento de Excel a PDF, lo cual implica que, por código, he de cambiar de impresora tanto de delphi como de windows (según sea el documento que imprimo interno de delphi o externo, necesito una de las dos cosas), imprimir, y finalmente volver a la que tenía antes.

Al volver a elegir la kyocera (tanto como por defecto de windows como en delphi), resulta que en window sigue usando la bandeja 3, pero en la "printer" de delphi, si imprimes o si miras sus propiedades, la bandeja ahora es "por defecto", es decir, la 1.

Supongo que el problema está en el código que uso para cambiar de impresora del sistema, no recuerdo de donde copie ese código, pero es este:

delphi

var
  szPrinterName, szIniInfo, szSection: PChar;
begin
      GetMem(szPrinterName,SizeOf(Char) * 256); //allocate memory
      GetMem(szIniInfo,SizeOf(Char) * 256);
      GetMem(szSection,10) ;
      StrPCopy(szPrinterName, Printer.Printers[PosImpresora]);
      //Fijo impresora por defecto en windows
      GetProfileString('DEVICES', szPrinterName, nil, szIniInfo, 254) ;    {locate device info in win.ini}
      if szIniInfo^ <> #0 then begin                                       {if device found, then..}
        StrCat(szPrinterName,',') ;                                        {prepare new device line}
        StrCat(szPrinterName,szIniInfo) ;
        WriteProfileString('Windows','DEVICE',szPrinterName) ;             {update ini file}
        StrCopy(szSection,'Windows') ;
        PostMessage(HWND_BROADCAST,WM_WININICHANGE,0,LongInt(szSection)) ; {notify all apps - ini has changed}
      end;
      //Libero recursos...
      FreeMem(szPrinterName,SizeOf(Char) * 256) ;                          {release memory}
      FreeMem(szIniInfo,SizeOf(Char) * 256) ;
      FreeMem(szSection,10) ;
end;

Uso delphi 7, por cierto.

¿Hay alguna otra forma de cambiar la impresora del sistema más fiable o correcta que esta?

Gracias de antemano a los sabios del lugar!

[Sergio]

Otro dato curioso: En las mismas condiciones, si antes de cambiar la impresora del sistema cambio la impresora de delphi llamando al dialogo, y elijo la PDF, ahora al convertir a PDF no toco la impresora de delphi, solo la de windows, y en ese caso, la bandeja no cambia.

Supongo que esto lía más el tema que otra cosa, pero ocurre así, y quizás sea la combinación de cambiar impresora del sistema más la impresora de delphi lo que genera el problema.

Quizás la solución sea cambiar siempre una de las dos solamente, la de delphi o la de windows, peor si alguien sabe algo al respecto preferiría no hacer más pruebas "a ciegas", llevo ya unas cuantas, la verdad. 

[qtdpd]

Hola.

A ver si te vale este código que uso yo para fijar la impresora por defecto, etc.

Necesitas:
1 Combobox
1 PrintSetupDialog
2 Buttons

delphi

unit impresoras;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Printers, ExtCtrls;
 
type
  Tconf_impr = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    predeterminada: TBitBtn;
    configuracion: TBitBtn;
    cerrar: TBitBtn;
    PrinterSetupDialog1: TPrinterSetupDialog;
    Bevel1: TBevel;
    Label2: TLabel;
    procedure configuracionClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure predeterminadaClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  conf_impr: Tconf_impr;
 
implementation
 
{$R *.DFM}
 
// Impresora por defecto actual
function GetDefaultPrinter: string;
var
  ResStr : array[0..255] of Char;
begin
  GetProfileString('Windows', 'device', '', ResStr, 255);
  Result := StrPas(ResStr);
end;
 
// procedure para fijar impresora por defecto
procedure SetDefaultPrinter(NewDefPrinter: string);
var
  ResStr            : array[0..255] of Char;
begin
  StrPCopy(ResStr, NewdefPrinter);
  WriteProfileString('windows', 'device', ResStr);
  StrCopy(ResStr, 'windows');
  SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@ResStr));
end;
 
procedure Tconf_impr.configuracionClick(Sender: TObject);
begin
   PrinterSetupDialog1.Execute;
end;
 
procedure Tconf_impr.FormActivate(Sender: TObject);
begin
  // Lista de impresoras disponibles en el combobox
  Combobox1.Items.Clear;
  Combobox1.Items.AddStrings(Printer.Printers);
end;
 
procedure Tconf_impr.predeterminadaClick(Sender: TObject);
begin
  // Fijar impresora predeterminada
  if Combobox1.Text <> '' then
  begin
    SetDefaultPrinter(ComboBox1.Text);
    label2.Caption := Format('Impresora predeterminada: %s', [GetDefaultPrinter]);
  end
  else ShowMessage('Elije primero una impresora !');
end;
 
procedure Tconf_impr.FormCreate(Sender: TObject);
begin
  label2.Caption := Format('Impresora predeterminada: %s', [GetDefaultPrinter]);
end;
 
end.

Saludos.

[Sergio]

Tu código para fijar la impresora por defecto en windows es identico al mio, se llaman a las mismas funciones de las API con los mismos parámetros, pero eso ya me funciona perfectamente.

Mi problema es como queda la printer de delphi tras todo este follón: Inicialmente partia con la kyocera, bandeja 3, "clonada" de la impresora por defecto de windows, pero si cambio esa printer a otra y luego la redefino de nuevo como la kyocera, termino con la bandeja 1 en lugar de la 3. Este paso de volver aponer en printer lo que tenía al iniciar la aplicación es lo que falla.

Es como si al iniciarse delphi se leyese la impresora por defecto de windows bien, pero al volver a querer poner esa misma impresora de nuevo como impresora elegida en delphi por código (SIN mostrar el dialogo de elegir impresora, si lo haces así no problem) algo se quedase mal, se pierde la bandeja elegida en windows.

[Pratasvenska]

Buenas,

Descubrí éste hilo con una búsqueda y me ha sido múy útil. Aunque me encuentro con un problema: Si ejecuto mi programa de forma local, funciona perfecto, ya que el combobox me enlista todas las impresoras locales y de red. Pero si ejecuto mi programa en un servidor, no me muestra las impresoras locales. Es posible modificar el código para poder seleccionarlas también?

Saludos.

[Sergio]

Buenas,

Descubrí éste hilo con una búsqueda y me ha sido múy útil. Aunque me encuentro con un problema: Si ejecuto mi programa de forma local, funciona perfecto, ya que el combobox me enlista todas las impresoras locales y de red. Pero si ejecuto mi programa en un servidor, no me muestra las impresoras locales. Es posible modificar el código para poder seleccionarlas también?

Saludos.

Si te refieres a una aplicacion a la que accedes por un terminal server, puedes usar las impresoras locales si antes de conectar, en las propiedades de la conexion, activas el uso de impresoras (o discos) locales.

[Pratasvenska]

Buenas,

Descubrí éste hilo con una búsqueda y me ha sido múy útil. Aunque me encuentro con un problema: Si ejecuto mi programa de forma local, funciona perfecto, ya que el combobox me enlista todas las impresoras locales y de red. Pero si ejecuto mi programa en un servidor, no me muestra las impresoras locales. Es posible modificar el código para poder seleccionarlas también?

Saludos.

Si te refieres a una aplicacion a la que accedes por un terminal server, puedes usar las impresoras locales si antes de conectar, en las propiedades de la conexion, activas el uso de impresoras (o discos) locales.

Gracias por tu respuesta, debí aclarar un poco mejor la situación. Estoy trabajando con una aplicación web desarrollada en Delphi XE5 + Intraweb 14, al ejecutar de forma local todo funciona bien, pero al instalar la aplicación como un servicio y accesarla via la red, entonces (lógicamente) el combobox del ejemplo anterior sólo muestra las impresoras instaladas en el servidor donde está también instalada la app.

Aunque creo que está sería una solución alternativa, un workaround para el problema que realmente tengo, no sé si deba abrir otro hilo? Bueno, aquí va: Tengo una impresora de etiquetas marca Brother, y en la app que les menciono es necesario enviar impresiones a dicha impresora. Todo funciona perfecto cuando está seleccionada como impresora predeterminada. Pero cuando ésta cambia a una impresora común y corriente, entonces Internet explorer (y también Chrome) no entienden que el tamaño y orientación deben venir de la impresora que selecciono para esa impresión en concreto y trata de imprimir en A4 y con orientación portrait.

Trataré de ilustrarlo un poco mejor:

Impresora de etiquetas (Brother QL-720NW) predeterminada
Impresora HP 4250
Resultado : OK, tamaño 10x6 cm, landscape

Impresora de etiquetas (Brother QL-720NW)
Impresora HP 4250 predeterminada
Resultado : Error! Se envían tamaño A4 (portrait) a las etiquetas

Claro que se puede cambiar los ajustes manualmente cada vez que se imprima, pero esto sería indeseable para el cliente.
Creo que es un problema se tiene en general con las impresoras de etiquetas? aqui se describe una situación muy similar:
http://www.experts-e...Q_28297417.html En inglés, y hasta el momento sin solución concreta.

Alguna sugerencia?
Gracias por leer tanto rollo! Un saludo

Edito: Éste puede ser un problema de windows en general? o será que algo está mal con mi computadora. Porque si tengo la impresora de etiquetas como predeterminada y después envio una impresión desde notepad a una impresora normal, el tamaño y orientación también están mal, vienen de la predeterminada (de la de etiquetas)

[Wilson]

Éste puede ser un problema de windows en general? o será que algo está mal con mi computadora. Porque si tengo la impresora de etiquetas como predeterminada y después envio una impresión desde notepad a una impresora normal, el tamaño y orientación también están mal, vienen de la predeterminada (de la de etiquetas)

Alguna vez afronté una situación parecida que casi me enloquece, después de probar mil cosas resultó que el problema estaba en la impresora HP, cambié de impresora y ya no hubo más problemas, así que no pierdes nada probando con otra impresora.

Un cordial saludo.

[cram]

¿Intentaste hacerlo por medio de la interfaz que provee la VCL?
Me refiero a la biblioteca Printers de la VCL.

No se me ocurre otra cosa. 

Saludos

[Marc]

¿Intentaste hacerlo por medio de la interfaz que provee la VCL?
Me refiero a la biblioteca Printers de la VCL.

No se me ocurre otra cosa. 

Saludos

Iba a hacer la misma pregunta. Pruébalo y ya nos dirás Sergio.

delphi

    Printer.PrinterIndex := -1;

Si no funciona como debería, lo único que se me ocurre para parchear el problema es que antes de cambiar a la impresora PDF te guardes en unas variables todos los datos de la impresora predeterminada, para después poder restaurarlos manualmente (es decir, que además de volver a seleccionar la impresora predeterminada, también asignes de nuevo la bandeja por defecto).

http://www.scalabium...faq/dct0019.htm
http://www.scalabium...faq/dct0020.htm

Saludos.

[Sergio]

¿Intentaste hacerlo por medio de la interfaz que provee la VCL?
Me refiero a la biblioteca Printers de la VCL.

No se me ocurre otra cosa. 

Saludos

Iba a hacer la misma pregunta. Pruébalo y ya nos dirás Sergio.

delphi

    Printer.PrinterIndex := -1;

Si no funciona como debería, lo único que se me ocurre para parchear el problema es que antes de cambiar a la impresora PDF te guardes en unas variables todos los datos de la impresora predeterminada, para después poder restaurarlos manualmente (es decir, que además de volver a seleccionar la impresora predeterminada, también asignes de nuevo la bandeja por defecto).

http://www.scalabium...faq/dct0019.htm
http://www.scalabium...faq/dct0020.htm

Saludos.

Gracias por la idea de usar printers, ya la probe y no valia (este post es antiguo y se ha reabierto por un nuevo comentario) pero el final fue triste: El problema eran los drivers de Kyocera que son una... magnifica obra de ingenieria  y cambiar de impresora fue la solución.

Lo de guardarme los parametros de la impresora y esas complicaciones, la verdad, si es problema de su driver yo paso de calentarme la cabeza, por un lado porque no es mi culpa, que llamen a kyocera, y por otro porque ni tengo ni planeo tener una kyocera para hacer pruebas, y probar cosas por probar como que me puede afectar al resto de impresoras "buenas", y no quiero.

Vamos, que pase del tema.

[Marc]

Esto me pasa por vago, por leerme solo el primer mensaje y el último :-(.

No me di cuenta que el post era antiguo. Gracias por responder igualmente Sergio.

Saludos.

[cram]

Ya que los decís, sin ánimos de hacer publicidad. Tuve una FS-720, la compré como descartable ya que con el uso del ciclo de vida del cartucho el costo de impresión promedio se hacía igual que con el uso de recambios en otras.
Y también tuve líos con el software (pero no con Delphi), sino, con que la empresa Kyocera se olvida de ciertos modelos y no renueva los controladores.

[Pratasvenska]

Hola otra vez, creo que se creó algo de confusión ya que posteé mi problema en un hilo viejo ya que estaba relacionado. Creo un nuevo tema aqui : http://www.delphiacc...-'server-side'/

Saludos.