IMPRIMIR SEM PREVIEW

 Tópico anterior Próximo tópico Novo tópico

IMPRIMIR SEM PREVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#488845 - 14/05/2019 15:26:30

BETOOLIVEIRA7
BELEM
Cadast. em:Março/2019


Boa tarde!
Alguém sabe como imprimir sem o preview do Crystal XI R2?
Uso o VB6, mas se tiver o código em outra linguagem, serve.

Obrigado.



#488846 - 14/05/2019 16:20:23

DJROBERTOSC
BALNERARIO PICARRAS
Cadast. em:Maio/2011


Citação:
:
Boa tarde!
Alguém sabe como imprimir sem o preview do Crystal XI R2?
Uso o VB6, mas se tiver o código em outra linguagem, serve.

Obrigado.

Aqui tem um vídeo explicando, porem é em C# no visual studio. :)
https://www.youtube.com/watch?v=KlulLBD0Nng




#488857 - 15/05/2019 22:29:43

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 15/05/2019 22:35:05 por JCM0867

        Dim cryRpt As New ReportDocument
        Dim SqlRecibos As String

        SqlRecibos = "Select * From " + [TempImpReciboPagamentos] + ""
        Conecta no Banco SQL Server
        Dim dsRecibos As New dsImpRecibos
        Dim daRecibos As New SqlDataAdapter(SqlRecibos, cx2.cSql)
        daRecibos.Fill(dsRecibos, "dtImpRecibos")
       Desconecta no Banco SQL Server

            cryRpt.Load(RaizSistema + "\Reports\DocRecibo01.rpt")
            cryRpt.Database.Tables(0).SetDataSource(dsRecibos)

            cryRpt.SetParameterValue("Instituicao", Escola)
            cryRpt.SetParameterValue("Endereco", EnderecoEscola1)
            cryRpt.SetParameterValue("Cnpj", CNPJEscola)
            cryRpt.PrintToPrinter(2, True, 1, 0)

Isso eu uso para imprimir recibos direto numa impressora Daruma, aquelas pequenas,
a chave de tudo é a linha em vermelho, ele vai direto para impressora sem preview
isso eu fiz em VB.Net e Cristal 13 for visual studio




 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário