Olá Pessoal,

Estou começando a usar o CrViewer e estou com um problema...como eu faço para que o usuário possa escolher em qual impressora será impresso o relatório?

No form em que esta o crviewer coloque:

 

Private Sub CRViewer91_PrintButtonClicked(UseDefault As Boolean)
    Report.PrinterSetup (hwnd) ' Abre a tela de opção de Impressora
End Sub

Caso seja sempre a mesma impressora, e vc queira já deixar meio otimizado, faça assim:

 

        Dim X As Printer
        For Each X In Printers
            If UCase(X.DeviceName) = UCase(xnomeimp) Then
                crpPesquisa.Reset
                crpPesquisa.PrinterDriver = X.DriverName
                crpPesquisa.PrinterPort = X.Port
                crpPesquisa.PrinterName = X.DeviceName
                crpPesquisa.Destination = crptToPrinter
                crppesquisa.action = 1

           endif

     next

 

Eu não sei se funciona com o view, no crystal eu ainda uso daquele jeito de gravar o arquivo .rpt e carregar ele no form via objeto crystal report.

 

T+

 

As linhas de instrução que o DONKEY passou só funciona até a ver 8.5 do Crystal Reports 

Valeu daniel, eu nem sabia... parei de usar o crystal, estou com ele apenas em um sistema que eu ainda não reescrevi os relatorios, inclusive realmente eu utilizava a versão 8.5.... valeu pela informação...

 

T+