Estoy desarrollando una aplicación de Facturación y Contabilidad para mi empresa. Utilizo Borland Delphi 6, quiero hacer un gráfico que muestre una serie de datos (importe facturado por cliente). El gráfico lo he hecho con este código:
Código:
var
serieG : TPieSeries;
begin
if lsGraficos.Text = 'Facturación por cliente' then
begin
DBChart1.Title.Text.Clear;
DBChart1.Title.Text.Add (lsGraficos.Text);
serieG := TPieSeries.Create(Self);
With serieG do
begin
md.tcCuadroMandoChart.Close;
md.tcCuadroMandoChart.Connection := md.bd;
md.tcCuadroMandoChart.SQL.Clear;
md.tcCuadroMandoChart.SQL.Add ('SELECT c.nombre Cliente, sum(f.importe) ImporteTotal');
md.tcCuadroMandoChart.SQL.Add ('FROM ' + vtTablaFacturas + ' f left join ' +
vtTablaCliente + ' c ON f.codigocliente = c.codigo');
md.tcCuadroMandoChart.SQL.Add ('group by f.codigocliente');
md.tcCuadroMandoChart.SQL.Add ('having ImporteTotal > 0');
md.tcCuadroMandoChart.Open;
ParentChart := DBChart1;
DataSource := md.tcCuadroMandoChart;
XLabelsSource := 'Cliente';
YValues.ValueSource := 'ImporteTotal';
CheckDatasource;
end;
end;
Esto me funciona bien, pero quiero saber si se puede mostrar una vista previa de impresión del gráfico, sé que se puede imprimir directamente con el comando:
Código:
DBChart1.Print;
Pero me gustaría saber si es posible mostrar una vista previa antes de imprimir.
Publicado:
Vie Jun 12, 2009 7:09 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Mostrar vista previa de un DBChart
Anuncios
varios escribió:
Estoy desarrollando una aplicación de Facturación y Contabilidad para mi empresa. Utilizo Borland Delphi 6, quiero hacer un gráfico que muestre una serie de datos (importe facturado por cliente). El gráfico lo he hecho con este código:
...
Esto me funciona bien, pero quiero saber si se puede mostrar una vista previa de impresión del gráfico, sé que se puede imprimir directamente con el comando:
Código:
DBChart1.Print;
Pero me gustaría saber si es posible mostrar una vista previa antes de imprimir.
Para mostrar una vista previa puedes utilizar este código:
Código:
ChartPreview(Self, DBChart1);
Para que te funcione debes añadir al USES del formulario donde lo pongas lo siguiente:
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A