Crystal Report - IMPRIMIR UN INFORME POR OTRA IMPRESORA??(URGENTE)

 
Vista:

IMPRIMIR UN INFORME POR OTRA IMPRESORA??(URGENTE)

Publicado por KONTXI (4 intervenciones) el 23/05/2001 16:40:54
Hola, mi problema es que hago un informe y lo que quiero es que al darle al botón de imprimir (el que aparece con el informe de Crystal Report, con el dibujo de una impresora), bueno pues eso que cuando le de al botón de imprimir me de la opción de elegir otra impresora que no sea la predeterminada.
Mucha Gracias por adelantado. KONTXI
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ELEGIR IMPRESORA

Publicado por DAVID (10 intervenciones) el 31/05/2001 20:05:54
Tienes que tener una objeto de dialogo, yo en Delphi lo tengo asi;

PrintDialog1.Options := [poPageNums, poWarning];
PrintDialog1.FromPage := CrystalReport1.PrintOptions.StartPage;
PrintDialog1.ToPage := CrystalReport1.PrintOptions.StopPage;
PrintDialog1.Copies := CrystalReport1.PrintOptions.Copies;
PrintDialog1.MaxPage := Integer(65535); {65535}
if PrintOptions.Collation <> DefaultCollation then
fmcrystal.PrintDialog1.Collate := Boolean(Ord(CrystalReport1.PrintOptions.Collation));
// Muestra la pantalla de dialogo
if fmcrystal.PrintDialog1.Execute then
begin
// Asignar las opciones elegida en el la pantalla dialogo
CrystalReport1.PrintOptions.StartPage := PrintDialog1.FromPage;
CrystalReport1.PrintOptions.StopPage := PrintDialog1.ToPage;
CrystalReport1.PrintOptions.Copies := PrintDialog1.Copies;
CrystalReport1.PrintOptions.Collation := TCrCollation (Ordfmcrystal.PrintDialog1.Collate));
fmcrystal.CrystalReport1.Printer.GetCurrent(True);
end;

Espero te sirva, a mi si me funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar