EXPORTAR RELATORIO DO DATAREPORT PARA EXEL E PDF

FLAVIOGUILHERME 19/04/2007 17:27:55
#212832
Boa tarde amigos !!!
Estou precisando exportar um relatório gerado no datareport para exel e pdf, alguém pode ajudar-me ?
Estou usando uma consulta sql para abrir o relatório.
Obrigado.
FLAVIOGUILHERME 24/04/2007 14:10:16
#213558
Alguém sabe como exportar o resultado de uma consulta sql para uma tabela no excel ou para um arquivo pdf ?
USUARIO.EXCLUIDOS 24/04/2007 16:57:04
#213579
caro colega, use o codigo aqui abaioxo que dara certo, como vc ja fez uma selecao ocm sql, fica assim
add uma referencia excel11
Dim excelApp As New Excel.Application
Dim excelBook As Excel.Workbook = excelApp.Workbooks.Open (Application.StartupPath & "\Graficos\Dados") ''(ou .new se vc quiser criar uma nova planiçlha)
'Torna o Excel invisível ao usuário até que a planilha seja preenchida
excelApp.Visible = False
Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(6), Excel.Worksheet) 'excelworksheet é a plan que vc trabalha onde o 6 é o indice dela(ai vc veja o indice certo)
excelWorksheet.Range("A1").Value = txtsetor.Text
For x As Long = 0 To cmbequipamento.Items.Count - 1
Try
cmbequipamento.SelectedIndex = x
excelWorksheet.Range("B" & x.ToString).Value = seucampo
excelWorksheet.Range("Q" & (i + x).ToString).Value = seucampo Catch ex As Exception
Exit Try
End Try
Next x
excelWorksheet.Range("A1").Value = txtsetor.Text
excelApp.Visible = True

essa instrução .range, é a celula que vc quer trabalhar

espero ter ajudado..
abraçosd
Tópico encerrado , respostas não são mais permitidas
Voltar