Enviei hoje em DICAS, um código que uso e faz isto.

Não estou entendendo por que não faz, tenho este código funcionando há muito tempo, e sem API.

Ser não conseguir, me avise te envio o formulário.

 

vlu//

 

veja se esse exemplo te atende

 

 

Incrível!!! Alguma coisa estranha no ar. O seu código, Roberto, funciona perfeitamente, EM TEMPO DE EXECUÇÃO. Quando saio do programa não grava a impressora padrão inicial.

Li em algum lugar que pode ser problema de service pack do VB6. Tenho instalado o SP6, mas não instalei os anteriores. Vocês sabem se o SP6 engloba as service packs anteriores.

Que coisa, hein! Continuo aqui, na luta.

LCRamos, se puder me mandar o formulário pra eu testar (não achei nas dicas recentes). Meu e-mail: gelson-alves@bol.com.br

 

Obrigado pessoal!

 

Public nrIMPRESSORA As Printer   ' melhor nomear como publica em um módulo
Private Sub Form_Load()
 Me.Top = 2940
 Me.Left = 2640
 Me.Height = 4215
 Me.Width = 5055
 cboIMPRIME.Clear      

 cboIMPRIME.Text = Printer.DeviceName
 For Each nrIMPRESSORA In Printers
  cboIMPRIME.AddItem nrIMPRESSORA.DeviceName
 Next
 MousePointer = 0
End Sub
Private Sub Form_KeyDown(TK As Integer, Shift As Integer)
 If TK = 118 Then
  cmdIMPRIME_Click
  Exit Sub
 End If
 If TK = 123 Then
  cmdRETIMPR_Click
  Exit Sub
 End If
End Sub
Private Sub cboIMPRIME_KeyDown(TK As Integer, Shift As Integer)
 If TK = 13 Then
  cmdIMPRIME.SetFocus
  Exit Sub
 End If
 If TK = 27 Then
  cmdRETIMPR.SetFocus
  Exit Sub
 End If
End Sub
Private Sub cmdIMPRIME_Click()
 MousePointer = 11
 For Each nrIMPRESSORA In Printers
  If nrIMPRESSORA.DeviceName = cboIMPRIME.Text Then
   Set Printer = nrIMPRESSORA
   Exit For
  End If
 Next
 MousePointer = 0
 cmdRETIMPR_Click
 Exit Sub
End Sub
Private Sub cmdRETIMPR_Click()
 MousePointer = 0
 Unload frmESCOLHE
 Set frmESCOLHE = Nothing
End Sub
Tai.

Nome do Form = frmESCOLHE

Combo Nome  = cboIMPRIME

Botão Nome = cmdIMPRIME

Botão Nome = cmdRETIMPR

Faça seu layout, o código é este, e quando saio a impressora padrão fica a que foi setada.

 

vlu//

Valeu pessoal!

Obrigado pelo esforço em tentar ajudar.

Testei todos os código mas não resolvi o problema.

Talvez esteja fazendo alguma bobagem, ou, quem sabe, é realmente um problema de service pack.

Se eu conseguir encontrar a solução eu posto aqui.

Estou encerrando o tópico.

 

Abraço!