Fórum Impressão de gráficos #346970

if RelGrafico  = nil then
    RelGrafico := TRelGrafico.Create(Application);
  if fileexists(´c:\Smart\Loja\Grafico1.bmp´) then
    deletefile(´c:\Smart\Loja\Grafico1.bmp´);
   DBChart1.SaveToBitmapFile(´c:\Smart\Loja\Grafico1.bmp´);
   relgrafico.QRLabel2.Caption := InputBox(´Gráfico´,´Título´,TabSheet2.Caption);
    RelGrafico.QRImage1.Picture.LoadFromFile(´c:\smart\loja\grafico1.bmp´);
  relgrafico.QRLabel3.Caption := ´Período de ´ + datetimetostr(DateTimePicker1.DateTime) + ´ até ´+ datetimetostr(DateTimePicker2.DateTime);
  relgrafico.QRLabel1.Caption := InputBox(´Gráfico´,´Observação´,´´);
  relgrafico.Preview;