Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-05-2004
Metralla Metralla is offline
Miembro
 
Registrado: may 2004
Ubicación: Palma de Mallorca
Posts: 17
Poder: 0
Metralla Va por buen camino
Dialogo de impresion

Hola buenas
A ver si alguien me puede ayudar un poco.
He creado un menu de dialogo de impresion en delphy 7 para elegir una impresora diferente, y me gustaria poder enlazarlo con el rave 5 para poder imprimir informes sin tener que ejecutar el rave y apretar imprimir.
Código:
procedure Tfrmimprimir.FormCreate(Sender: TObject);
begin
	ComboBox1.Items := printer.Printers; // poner la lista de impresoras al combo
	edit1.Text := printer.Printers.GetText[printer.printerindex];  //mostrar la impresora actual
end;
Si alguien tiene alguna idea o saben de algun sitio donde haya un ejemplo o algo asi .
Gracias.
Responder Con Cita
  #2  
Antiguo 25-05-2004
Avatar de Combat-F2D
Combat-F2D Combat-F2D is offline
Miembro
 
Registrado: may 2003
Ubicación: Toletum
Posts: 454
Poder: 22
Combat-F2D Va por buen camino
nunca he trabajado con rave, pewro por curiosidad he estado mirandolo por encima y me he encontrado con un par de cosillas.

te remito una aplicacion donde jugando con las propiedades del componente asociado al componente RvProject, es decir el RvSystem, es posible si no del todo, si algo parecido a lo que propones.

espero que te sirva por lo menos para arrancar.
__________________
online
Responder Con Cita
  #3  
Antiguo 26-05-2004
Metralla Metralla is offline
Miembro
 
Registrado: may 2004
Ubicación: Palma de Mallorca
Posts: 17
Poder: 0
Metralla Va por buen camino
Gracias
Pero no veo donde esta el link o el archivo
Responder Con Cita
  #4  
Antiguo 26-05-2004
Avatar de Combat-F2D
Combat-F2D Combat-F2D is offline
Miembro
 
Registrado: may 2003
Ubicación: Toletum
Posts: 454
Poder: 22
Combat-F2D Va por buen camino
me acaba de informar uno de los boss de por aqui que no se pueden remitir adjuntos de mas de 1 K; asi que por favor mandamne tu email, oK
__________________
online
Responder Con Cita
  #5  
Antiguo 31-05-2004
Rabata Rabata is offline
Miembro
 
Registrado: jul 2003
Posts: 167
Poder: 21
Rabata Va por buen camino
imprimir sin pasar por el setup

//Imprimir saltandose el setup y el preview
RvSystem2.DefaultDest:=rdPrinter;
RvSystem2.DoNativeOutput:=false;
RvSystem2.SystemSetups:=RvSystem2.SystemSetups-[ssAllowSetup];
RvProject2.Open;
RvProject2.SelectReport('Report15',false);
RvProject2.Execute;

Puede que ya lo supieras....

Yo tengo tb el mismo problema que tu a la hora de poner la impresora del combobox como la impresora por la que imprima el Rave.

Si logras solucionarlo t estaría muy agradecido d que pusieras como lo has hecho, yo de todas formas seguiré investigando y si lo consigo t lo pondré.


Gracias
Responder Con Cita
  #6  
Antiguo 31-05-2004
Metralla Metralla is offline
Miembro
 
Registrado: may 2004
Ubicación: Palma de Mallorca
Posts: 17
Poder: 0
Metralla Va por buen camino
ok rabata
el que primero lo consiga que se lo diga al otro asi que lo haga lo pondre en el foro.
Pero llevo ya un par de dias intentandolo, lo de quitar el dialogo del preview ya lo habia hecho ,pero necesito que cuando yo aprete a imprimir en mi dialogo de impresion se imprima el report en la impresora que yo diga.
Gracias.
Salud y suerte.
Responder Con Cita
  #7  
Antiguo 31-05-2004
Ivan JR Ivan JR is offline
Registrado
 
Registrado: may 2004
Posts: 9
Poder: 0
Ivan JR Va por buen camino
Bueno a lo que tu te refieres es como seleccionar otra impresora.. diferente a la que tienes por default.

este es un ejemplo de como obtienes de la impresora y de ahí la pones como predeterminada

function TForm1.fSetDefaultImpresora(
iNumImpresora: integer): Boolean;
var
iniFile : TIniFile;
TempStr1,tempStr2 : string;
begin
Result := True;
with Printer do
Begin
PrinterIndex := iNumImpresora;
iIndexImpresora := iNumImpresora;
TempStr1 := Printers[PrinterIndex];
System.Delete(TempStr1,pos('on',TempStr1),length(TempStr1));
iniFile := TIniFile.Create('WIN.INI');
Try
tempStr2 := iniFile.ReadString('device',TempStr1,'');
iniFile.WriteString('windows','device',TempStr1+','+tempStr2);
iniFile.Free;
except
result := False;
iniFile.Free;
exit;
end;
end;
end;
donde tu index podría ser uno fijo o adaptalar a una tabla de configuracion o como lo requieras.. yo no trabajo con Rave.. utilizo aun el quick report, ojalá te sirva
Responder Con Cita
  #8  
Antiguo 01-06-2004
Metralla Metralla is offline
Miembro
 
Registrado: may 2004
Ubicación: Palma de Mallorca
Posts: 17
Poder: 0
Metralla Va por buen camino
Gracias
Pero ya he visto un ejemplo parecido en un hilo de mas abajo pero esta on el rave report no va
Gracias de todas formas
Ademas la impresora que le pongo ya me la pilla el report lo que pasa es que no soy capaz de hacer que me imprima el rave el report directamente desde delphi 7 sin haber hecho antes el preview del report.
Es decir yo tengo hecho un menu de elegir impresora , si eligo una impresora y le doy aceptar la pilla el rave como la que tiene que imprimir lo que no me imprime para que me imprima tengo que hacer el preview y darle al boton de imprimir , me sale el dialo de impresion y la impresora que le he dicho yo antes por la que me tendria que imprimir es la que sale imprimida.
Realmente mi pregunta es como imprimo directamete un rave report sin tener que hacer antes el preview? que es lo que me falta?.

Última edición por Metralla fecha: 01-06-2004 a las 10:56:44.
Responder Con Cita
  #9  
Antiguo 02-06-2004
Rabata Rabata is offline
Miembro
 
Registrado: jul 2003
Posts: 167
Poder: 21
Rabata Va por buen camino
Cool creo q puede valerte

creo que esto hace lo q tu quieres

RvProject1.ProjMan.ActiveReport.Printer:=cbPrinters.Text;

cbPrinters es un combobox con las impresoras ... como en otros ejemplos que habras visto.Pero debe de poner Impresora tal on Puesto...

pero mi problema es q tengo un RvSystem asociado al componente RvProject para que me ponga las opciones... y claro aunque me imprime con esto por la seleccionada en el combobox,en el cuadro de dialogo q me sale para elegir si quiero imprimir directamente, o el preview o guardar a disco me sale arriba que la impresora seleccionada es otra, lo q confunde al usuario, aunque despues cuando le da a imprimir imprime por la que debe.

Sabeis como quitar esa información de la impresora activa del RvSystem?
Responder Con Cita
  #10  
Antiguo 03-06-2004
Metralla Metralla is offline
Miembro
 
Registrado: may 2004
Ubicación: Palma de Mallorca
Posts: 17
Poder: 0
Metralla Va por buen camino
Mira de desactivar le pantalla esa en las opciones del rvsystem.
Systemsetups
allowsetup = false.
Asi no te sale y el usuario no tendra problemas, lo que pasa es que despues tendras que meterle por codigo si quiere hacer el preview, o imprimir sin hacer el preview o guardarlo en el disco.
Que es lo que estoy haciendo yo.
Yo td me peleo con imprimir sin el preview lo demas ya ta.

Última edición por Metralla fecha: 03-06-2004 a las 13:28:22.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:55:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi