Impresión en red

[monicasierrar]

Hola a todos.

Realicé una aplicación con delphi6, Ib 6.0 y utilizo como reporteador a RBuilder. El problema que tengo es que solo me está imprimiendo en la primera impresora que instalé, una samsung ML-2060 y desde un solo equipo, el primero que instale la aplicación. Cuando ejecuto la aplicación en otro equipo y quiero mandar a otra impresora que está en red, una ML-1060, ni a ninguna otra, no imprime nada. Pero si imprime desde word, página de pruebas, etc.

Alguna idea?

[salvica]

Hola

Empezado por monicasierrar

Hola a todos.

Realicé una aplicación con delphi6, Ib 6.0 y utilizo como reporteador a RBuilder. El problema que tengo es que solo me está imprimiendo en la primera impresora que instalé, una samsung ML-2060 y desde un solo equipo, el primero que instale la aplicación. Cuando ejecuto la aplicación en otro equipo y quiero mandar a otra impresora que está en red, una ML-1060, ni a ninguna otra, no imprime nada. Pero si imprime desde word, página de pruebas, etc.

Alguna idea?

Tendrás que decirle al generador cual es la impresora que deseas utilizar.

Aquí tienes un ejemplo de asignación de impresoras http://www.clubdelphi.com/foros/showthread.php?t=50498, para ello deberás hacer un bucle hasta encontrar la impresora "por defecto" del ordenador en cuestión o la que deseas. En el foro he visto varios ejemplos de como hacerlo.

Saludos
salvica

Edito: No me fijé que unos posts más abajo hay un ejemplo de como buscar impresoras, exactamente aquí http://www.clubdelphi.com/foros/showthread.php?t=50659

[monicasierrar]

Hola. Muchas gracias por colaborarme.

Resulta que hice lo que tu me sugeriste, cargue en un combo box el listado de las impresoras, seleccióno en la que voy a imprimir, con RBuilder, asigno el nombre de la impresora

procedure TrptBalanceGral2007.ReporteBeforePrint(Sender: TObject);
begin
Reporte.PrinterSetup.PrinterName := NombreImpresora;
end;

Y nada, la primera vez trata de coger el papel, pero después ni se mueve la impresora.

Alguna otra idea,

Nuevamente gracias.

Mónica:

[salvica]

Empezado por monicasierrar

Hola. Muchas gracias por colaborarme.
Resulta que hice lo que tu me sugeriste, cargue en un combo box el listado de las impresoras, seleccióno en la que voy a imprimir, con RBuilder, asigno el nombre de la impresora

Código Delphi [-]
procedure TrptBalanceGral2007.ReporteBeforePrint(Sender: TObject);
begin
  Reporte.PrinterSetup.PrinterName := NombreImpresora;
end;

Y nada, la primera vez trata de coger el papel, pero después ni se mueve la impresora.

Alguna otra idea,

Nuevamente gracias.

Mónica:

No lo estás haciendo bien, más o menos seria así:

Código Delphi [-]
Uses 
.... 
....   
Printers;  

function  AsignarImpresora:integer;
var
  ComboBox : TComboBox;
  NumItem  : integer;
Begin
{ creamos el combox para las impresoras existentes }
  ComboBox := TComboBox.Create( nil );
  with ComboBox do
       try
         Visible := false; //---------------------------> ocultamos el combobox
         Parent  := rptBalanceGral2007; //--------------> asignamos a "quién pertenece"
         Clear; //--------------------------------------> inicializamos por si existe algo (no es necesario)
         AddStrings(Printer.Printers); //---------------> cargamos las impresoras del sistema
         NumItem  := Items.IndexOf('PDF Creator'); //---> buscamos la impresora a utilizar
        { Asignamos el indice de  la impresora }
          with rptBalanceGral2007 do
               Reporte.PrinterSettings.PrinterIndex := NumItem
       finally
         Free; //---------------------------------------> eliminamos el combobox
       end;
  Result := NumItem;
End;

procedure TrptBalanceGral2007.ReporteBeforePrint(Sender: TObject);
begin
  if( AsignarImpresora=-1 ) //-------------------------> comprobamos si asignamos la impresora
      then ShowMessage( 'Impresora no encontrada' );
end;

Esto lo he hecho de memoria, pero como ejemplo vale
Saludos
salvica

[[Lepe]]

¿no se puede resumir en esto otro?

Código Delphi [-]
NumItem  := Printer.Printers.IndexOf('PDF Creator'); 
if NumItem = -1 then
  ShowMessage('error no encontrada la impresora 'PDF Creator')

Printers es de tipo TString y ya tiene el "IndexOf"


Saludos

[salvica]

Empezado por Lepe

¿no se puede resumir en esto otro?

Código Delphi [-]NumItem := Printer.Printers.IndexOf('PDF Creator');
if NumItem = -1 then ShowMessage('error no encontrada la impresora 'PDF Creator')


Printers es de tipo TString y ya tiene el "IndexOf"


Saludos

Hola Lepe, es mejor y más corto pero así daba a entender la diferencia entre lo que hace monicasierrar y el porqué de la búsqueda de la impresora (que no lo tiene muy claro)

Saludos
salvica