|
|
|
|
|
|
|
|
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
|
|
|
|
|
