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!
Algum sabe como imprimir sem o preview do Crystal XI R2?
Uso o VB6, mas se tiver o cdigo em outra linguagem, serve.

Obrigado.



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

DJROBERTOSC
BALNERARIO PICARRAS
Cadast. em:Maio/2011


Citação:
:
Boa tarde!
Algum sabe como imprimir sem o preview do Crystal XI R2?
Uso o VB6, mas se tiver o cdigo em outra linguagem, serve.

Obrigado.

Aqui tem um vdeo 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