$VALMIR$
|
UBERLANDIA
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/01/2008 17:32 hs
Galera, eu estou imprimindo um Relatório do access diretamente na impresso, o codigo que uso é este abaixo
Dim RelatorioAccess As Object
Set RelatorioAccess = CreateObject("Access.Application")
With RelatorioAccess
.OpenCurrentDatabase filepath:="banco.mdb"
.DoCmd.OpenReport ReportName:="Nome do Report Name"
End With
mas veja bem, gostaria de antes de imprimir, que fosse mostrado o gerenciador de impressora do windows, para escolher as diversas impressoras. alguem sabe como fazer isso?
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/01/2008 17:42 hs
|
|
|
|
|
|
Postada em 23/01/2008 19:51 hs
Tá, mas eu queria apenas abrir o gerenciador de impressora do Windows para selecionar a impressora, nada mais.. Preciso saber como abrir o gerenciador de impressora do windows... |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/01/2008 19:59 hs
Tá faça assim vá em project/components e selecione MICROSOFT COMMON DIALOG CONTROL 6.0 INSIRA ESTE COMPONENTE EM SEU FORM E COLOQUE O SEGUINTE CÓDIGO EM UM BOTÃO Private Sub Command1_Click()
CommonDialog1.ShowPrinter
End Sub
VEJA SE É ISTO |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 23/01/2008 20:02 hs
sim é isso... vc sabe como que eu faço agora para pegar os eventos dos botões do gerenciador? tipo verificar se apertou no botao Ok ou Cancelar.. |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/01/2008 20:35 hs
como assim os botões que aparecem são estes imprimir e cancelar não sou nenhum expert neste comando posso te esplicar coisas basicas o que você pode estar fazendo é isto Private Sub Command1_Click()
CommonDialog1.ShowPrinter
Printer.Copies = CommonDialog1.Copies ' manda para printer o numero de cópias o commondialog
Printer.Orientation = CommonDialog1.Orientation ' manda para printer se será retrato ou paisagem
Printer.Print "teste"
Printer.EndDoc
End Sub ou seja você pode pegar os eventos de commondialog e inserir em printer teste o código acima mude a orientação da página o numero de cópias e etc veja se é isto mesm sua duvida |
|
|
|
