Paulo Sérgio
não registrado
|
|
Postada em 05/07/2006 15:08 hs
Sandro obrigado pela atençao, acontece que lá eu configurei no modo paisagem, mas quando ele assume a máquina do cliente ele assume a orientação que se encontra ativa, assim não imprimindo corretamente o relatório, lá ele informa o modo, mas ele não mantem a configuração original, assim poderia interferir e manter a configuração escolhida. Se alguem poder me dizer onde eu abaixo o crystal 9, dizem que é o melhor, poderiam me passar o endereço. Desde já agradeço |
|
|
|
|
|
Paulo Sérgio
não registrado
|
|
Postada em 05/07/2006 17:16 hs
Obrigado Sandro, mas esta versão não permite que eu possa travar a configuração do arquivo do relatório, assim deixando as configuraçoes do usuário como default. Gostaria de saber como consigo e onde localizo na net o Crystal 6 ou o nove para fazer o dowonload.Desde já agradeço a todos que me ajudaram ate aqui, são verdadeiros parceiros. |
|
|
|
|
|
Postada em 05/07/2006 20:31 hs
Olá, Espere aí, acho que lembrei de uma coisa que talvez resolva (eu disse talvez!). Clique no menu File e vá em Printer Setup. Desmarque a opção Default Properties e coloque a página em paisagem. Veja se resolve. Um abraço, Sandro. |
|
|
|
|
|
Postada em 05/07/2006 23:05 hs
Ola Paulo, blz?!
Nesse codigo vera q ao imprimir vc poderar selecionar tanto a impressora como o tipo de papel:
Private Sub IMPRIMIR_Click()
On Error GoTo ERRO_RELATORIO
If MsgBox("Deseja Imprimir o Relatório Geral ?", vbQuestion + vbYesNo, "Teste") = vbYes Then
CrystalReport1.ReportFileName = App.Path & "
elatorio.rpt"
CommonDialog1.CancelError = True
CommonDialog1.Flags = 64
CommonDialog1.ShowPrinter
CrystalReport1.SelectionFormula = ""
CrystalReport1.WindowTitle = "Relatorio"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
Else
Exit Sub
End If
Exit Sub
ERRO_RELATORIO:
MsgBox "Erro no Relatório!" & vbCrLf & "A impressão foi cancelada", vbCritical, "Teste"
End Sub
.:Rodrigo Bedin:.
|
|
|
|
|
