Array
(
)

Impressão com FastReport.Net

Ilano Caldas
   - 12 ago 2014

Olá pessoal,
Eu fiz um relatório usando FastReport.Net com SQL Server mas, ao clicar na impressora do componente, abre uma tela pedindo para fazer o download em PDF do relatório. Como faço para imprimir direto para a impressora? Tentei fazer com que gerasse um PDF (GerarPF()), até que cria o arquivo mas, ao abrir, fica pensando e não abre nada. Mas, se for na pasta onde está o arquivo PDF eu consigo visualizá-lo.
Estou desenvolvendo em Visual Studio 2012, linguagem VB. Segue o código abaixo:

Citação:

Partial Class administrador_relatorios_relEmpresas
Inherits System.Web.UI.Page
Private Empresa As New PROTOCOLO.objEmpresas
Private Permissao As New PROTOCOLO.objPermissoes
Private Sub HabilitaBotoes()
Dim Ds As Data.DataSet
Dim pPagina As String
pPagina = Request.CurrentExecutionFilePath
pPagina = pPagina.Remove(0, pPagina.LastIndexOf("/") + 1)
Try
LbMensagem.Text = DBNull.Value.ToString
Ds = Permissao.ConsultaAvancada(" A.Perfil_Codigo = " & Session("sPerfil") & _
" AND B.Modulo_Arquivo = 'relatorios/" & pPagina & "'", "")
If Not Ds Is Nothing Then
If Ds.Tables(0).Rows.Count > 0 Then
WebReport1.ShowPrint = Ds.Tables(0).Rows(0)("Perm_Imprime")
WebReport1.ShowExports = Ds.Tables(0).Rows(0)("Perm_Exporta")
Else
If Ds.Tables(0).Rows.Count = 0 Then
WebReport1.ShowPrint = False
WebReport1.ShowExports = False
End If
End If
Else
If Ds Is Nothing Then
WebReport1.ShowPrint = False
WebReport1.ShowExports = False
End If
End If
Catch ex As Exception
LbMensagem.Text = "Ocorreu um erro:
" & ex.Message
End Try
End Sub
Private Sub PovoaRelatorio(ByVal pParametro As String, ByVal pOrdem As String)
Dim pSQL As String
pSQL = " SELECT * FROM v_empresas "
If Trim(pParametro) <> DBNull.Value.ToString Then pSQL = pSQL & " WHERE " & pParametro
If Trim(pOrdem) <> DBNull.Value.ToString Then pSQL = pSQL & " ORDER BY " & pOrdem Else pSQL = pSQL & " ORDER BY Empresa_RazaoSocial "
HabilitaBotoes()
SqlDataSource1.SelectCommand = pSQL
SqlDataSource1.DataBind()
WebReport1.ReportFile = Server.MapPath("reEmpresas.frx")
WebReport1.Refresh()
End Sub
Private Sub GerarPF()
WebReport1.Prepare()
Dim export As FastReport.Export.Pdf.PDFExport = New FastReport.Export.Pdf.PDFExport()
WebReport1.Report.Export(export, "../../protocolo/relatorios/relEmpresas.pdf")
Response.Redirect("../../relatorios/relEmpresas.pdf")
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
PovoaRelatorio(" Empresa_Codigo = 0 ", "")
End If
End Sub
Protected Sub BtnConsultar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles BtnConsultar.Click
PovoaRelatorio(" Empresa_RazaoSocial LIKE '%" & TxtBusca.Text & "%' ", "")
End Sub
Protected Sub SqlDataSource1_Selected(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs) Handles SqlDataSource1.Selected
If e.AffectedRows > 0 Then
divRelatorio.Visible = True
Else
If e.AffectedRows = 0 Then
divRelatorio.Visible = False
End If
End If
End Sub
Protected Sub BtnPDF_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles BtnPDF.Click
GerarPF()
End Sub
End Class

Grato,
Ilano.

Tiago Barbosa
   - 01 ago 2015

Era para aparecer o cliente e os veiculos embaixo, como se fosse produtos de um cliente, e depois o outro cliente e seus produtos, mas aparece primeiro os clientes e depois os produtosEra para aparecer o cliente e os veiculos embaixo, como se fosse produtos de um cliente, e depois o outro cliente e seus produtos, mas aparece primeiro os clientes e depois os produtos (Clique na imagem para abrir em uma nova janela)