USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Impressão utilizando o gerenciador de impressora
$VALMIR$
UBERLANDIA
MG - BRASIL
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
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 23/01/2008 17:42 hs            
     
$VALMIR$
UBERLANDIA
MG - BRASIL
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
Pontos: 2843 Pontos: 2843
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
 
$VALMIR$
UBERLANDIA
MG - BRASIL
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
Pontos: 2843 Pontos: 2843
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
   
Página(s): 1/3      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página