Saludos muchachos como estan tengo un probema para imprimir el contenido de un richedit veran:
Estoy trabajando con delphi 7, Estoy trabando sin base de datos, esto es un programa para la universidad que estamos dando delphi el problema es el siguiente:
Tengo un Treeview, un RichEdit y un boton para imprimir
Cuando selecciono del treeview la opcion 3 que es itebis, me presenta en el richedit los datos que contiene y esos datos son los que deseo imprimir cuando pulso el boton de impresion,
Los datos no estan en la propiedad line del richedit previamente si no que estan dentro del codigo del programa: Pongo el codigo para que lo vean
Código Delphi
[-]
procedure TFrmAyuda.TreeView1Click(Sender: TObject);
begin
if TreeView1.Items[4].Selected then
with TRichEdit.Create(nil) do
begin
Parent:= Self;
Color:= clWhite;
Left:=240;
Top:= 112;
Height:= 465;
Width:= 337;
Font.Style:= [fsbold];
ReadOnly:= True;
Font.color:= clBlack;
Font.Name:= 'MS Sans Serif';
Font.Size:= 10;
plainText:= False;
ScrollBars:= ssVertical;
SelAttributes.Color:= clBlue;
Lines.Add(' MANTENIMIENTO ITEBIS');
Lines.Add('');
Lines.Add('');
SelAttributes.Color:= clBlue;
Lines.Add('CREAR');
Lines.Add('');
Lines.Add('Para Crear un Itebis los pasos a seguiar son los siguientes:');
Lines.Add('');
Lines.Add('1- Doy un click en la Opcion "Mantenimientos"');
Lines.Add('2- Doy un click en la Opcion "Itebis"');
Lines.Add('3- Digito el Itebis deseado en el Campo "Itebis"');
Lines.Add('4- Doy un click en el "Diskette"');
Lines.Add('5- Doy un click al botom "Aceptar"');
Lines.Add('');
SelAttributes.Color:= clRed;
Lines.Add('Nota: Si desea Cancelar o Limpiar el campo Itebis solo debe presionar el boton con la "X"');
Lines.Add('');
Lines.Add('');
Lines.Add('');
SelAttributes.Color:= clBlue;
Lines.Add('NUEVO');
Lines.Add('');
Lines.Add('Para introducir otro itebis los pasos son los siguientes:');
Lines.Add('');
Lines.Add('1- Doy un click en el "Diskette" para guardar la informacion');
Lines.Add('2- Doy un click en la "Hoja en Blanco"');
Lines.Add('3- Digito el Itebis deseado en el Campo "Itebis"');
Lines.Add('');
Lines.Add('');
Lines.Add('');
SelAttributes.Color:= clBlue;
Lines.Add('BUSCAR');
Lines.Add('');
Lines.Add('Para Localizar un Itebis los pasos a seguiar son los siguientes:');
Lines.Add('');
Lines.Add('1- Doy un click en los "Binoculares"');
Lines.Add('2- Cuando se abra la opcion de Modificacion y Eliminacion puedo hacer la busqueda por "Codigo" o "Itebis"');
Lines.Add('3- Si es por "Codigo" Introdusco el numero del registro deseado');
Lines.Add(' O');
Lines.Add('4- Si es por "Itebis" Introdusco el Itebis deseado');
Lines.Add('5- Doy un click en el "Simbolo de Bueno" y me traera la informacion deseada');
Lines.Add('');
SelAttributes.Color:= clRed;
Lines.Add('Nota: Si desea Tambien puede introducir los valores en ambos campos a la vez osea "Codigo e Itebis" y la busqueda se realizara tambien, Si desea cancelar la busqueda solo debe presionar el boton con la "Lupa"');
Lines.Add('');
Lines.Add('');
Lines.Add('');
SelAttributes.Color:= clBlue;
Lines.Add('MODIFICAR / ELIMINAR');
Lines.Add('');
Lines.Add('Para Modificar y Eliminar un registro los pasos son los siguientes:');
Lines.Add('');
Lines.Add('1- Debo efectuar una busqueda primero "Ver Buscar"');
Lines.Add('2- Debo escoger la "Carpeta con el Lapiz" ese es el boton de Modificar');
Lines.Add(' O');
Lines.Add('3- Debo escoger la "Hoja con la X" que es el boton de Eliminar');
end;
end;
Si se fijan yo los agrego con la opcion lines.add lo que voy a presentar en el Richedit entonces como puedo imprimir esas lineas que se agregan por ese momento en el richedit o mejor dicho que llenan el richedit en ese momento,
si me pueden ayudar con el codigo para imprimirlo se lo agradezco porque no se programar mucho.