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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Mudar impressora padrão
Postada em 22/8/2007 por LCRamos            
Para mudar a impressora padrão dentro do aplicativo, vai a dica, sem complicações, com uma combo preeenchida com os nomes de todas as impressoras instaladas no micro, inclusive as de rede.
Coloque um novo form no aplicativo.

Em um módulo nomeie uma variavel publica
Public nrIMPRESSORA As Printer

No formulário:
Coloque um controle Combo, e 2 CommandButton
Nome da Combo: cboESCOLHE
Botão1 Nome:  cmdESCOLHE
Botão2 Nome: cmdCANCELA
Private Sub Form_Load()
cboESCOLHE.Clear
cboESCOLHE.Text = Printer.DeviceName
For Each nrIMPRESSORA In Printers
  cboESCOLHE.AddItem nrIMPRESSORA.DeviceName
Next
End Sub
Private Sub cmdESCOLHE_Click()
    For Each nrIMPRESSORA In Printers
         If nrIMPRESSORA.DeviceName = cboESCOLHE.Text Then
           Set Printer = nrIMPRESSORA
           Exit For
         End If
    Next
    cmdCANCELA_Click
    Exit Sub
End Sub
Private Sub cmdCANCELA_Click()
    Unload nomedoformulario
    Set nomedoformulario = Nothing
End Sub

Pronto, quando sair do VB, a impressora escolhida será a padrão, para todos os aplicativos, para chamar de qualquer form use:

Private Sub cmdIMPRIMIR_Click()
     NOMEDOFORMULARIO.Show vbModal
     IMPRIMA AQUI OU CHAME UMA FUNÇÃO OU ROTINA
End Sub
 


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