CRISTAL REPORT IMPRESSAO

ALEXLUGON 07/08/2009 17:41:45
#319243
Pessoa gostaria de saber como faço para andete de imprimir abrir a caixa de dialogo das impressoras instaladas.

Eu gostaria de selecionar a impressora.

estou usando o seguinte código.

Set Crystal = New CRAXDRT.Application

SQL = [Ô]Select * From boleto[Ô]
RsAccess.Open SQL, ConnAccess, 3, 3
Set Repor = Crystal.OpenReport(App.Path & [Ô]oleto.rpt[Ô])
Repor.DataBase.SetDataSource RsAccess
Repor.DiscardSavedData


Repor.PrintOut False


Desde ja muito obrigado
FERRAZ 07/08/2009 17:51:01
#319245
ALEXLUGON, olha, so, este artigo aqui mostra como selecionar uma impressora nao padrao, acho que eh isso que vc quer, clique no link veja:

http://www.macoratti.net/crys_rpt.htm

Obs: este artigo fala como vc pode fazer isso usando a que acompanha o vb5, mais esta, logica nao mudou ate agora.
ROBIU 10/08/2009 10:01:46
#319435 Resposta escolhida
Tenta assim:

Set Crystal = New CRAXDRT.Application

SQL = [Ô]Select * From boleto[Ô]

RsAccess.Open SQL, ConnAccess, 3, 3
    Set Repor = Crystal.OpenReport(App.Path & [Ô]oleto.rpt[Ô])
    Repor.DataBase.SetDataSource RsAccess
    Repor.DiscardSavedData
   
    Repor.PrinterSetup Me.hwnd
    Repor.PrintOut False
MAUTATTOO 10/08/2009 10:34:58
#319440
Mais fácil!!! rs rs rs

CommonDialog1.Action = 5
Tópico encerrado , respostas não são mais permitidas
Voltar