|
|
Postada em 14/10/2004 09:32 hs
OLá amigos, eu gostaria de selecionar uma impressora antes de imprimir, igual ao um CommandDiagog por exemplo, uso crystal report 9. Obrigado |
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 14/10/2004 09:52 hs
De uma olhada na secao de dicas ela ja tem tudo pronto.
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 14/10/2004 12:17 hs
Rocha, será que funciona para o Crystal Report ??? Lembrando uso o CR 9 Obrigado |
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 14/10/2004 13:49 hs
Tente Private Sub CMD_CONFIGURACAO_Click()
Dim Impressora As Printer
On Error Resume Next
CommonDialog1.ShowPrinter
For Each Impressora In Printers
If Impressora.hdc = CommonDialog1.hdc Then
Set Printer = Impressora
Exit For
End If
Next
lbl_impressora = Printer.DeviceName ' nome da impressora
End Sub Isso funciona no crystal 8.5
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
