Selecionar a planilha pela combobox com que objetivo????

Fiquei curioso.

Mas se for pra imprimir sem abrir a caixa de dialogo (direto na impressora padrão), pode ser assim:

activesheet.printout

Acho que não me Expressei bem .......kkkkkkkk
Vamos lá, no meu exemplo tenho uma Combobox e nela me retorna todas as Impressoras Instaladas no meu pc, gostaria que quando seleciona-se a Impressora no combobox a Página seria Impressa, a parte de Imprimir está OK, falta a parte do código que entenda qual Impressora esta selecionada, entendeu amigo...qualquer coisa me avisa...obrigado pela ajuda.

Entendi sim amigo so nao entendi pq nao usar a caixa de dialogo padrao do windows...

Na verdade onde escrevi planilha no post anterior era pra ser impressora, por isso sua confusão.

Como tenho somente uma impressora não da para testar, cole a rotina a abaixo no evento Change do Combo e teste :

Private Sub ComboBox1_Change()
    Dim strPrinter As String
        
    strPrinter = ComboBox1.Text
        
    On Error Resume Next
    Application.ActivePrinter = strPrinter
    
    label1.Caption = "Impressora Ativa :" & Mid$(strPrinter, 1, 26)
   
    Worksheets("Plan1").PrintOut From:=1, To:=1, Copies:=1

End Sub

cara na verdade está mudando o nome da Impressora, na combobox e na label, mais está Imprimindo com a Impressora padrão, acho que é só com API mesmo que da certo, difícil manipular a Impressão sem API

Entendi o que vc pretende fazer mas ate agora não ficou claro o objetivo, o que vc pretende evitar???

Se vc disser o que quer evitar e o porque vc deseja ativar a impressora pela combobox e nao pela janela padrao do windows, é provavel que apareça uma solução.

E so estetico?

Ou tem alguma outra razão?

é que estou tentando criar um programinha com alguns bancos de dados, e eu pensei em criar um formulario "caixa de impressão" parecido com a do windows, pois como possuo mais de um banco, tenho que imprimir planilhas de todos eles, mais serao planilhas novas com formatos diferentes umas das outras, e nesse form de impressao eu consigui fazer imprimir ajustando as configuracoes pela minha caixa de dialogo, sem usar a do windows, porem não consigo alterar a impressora padrao para imprimir apenas usando o windows, e não é essa a minha intençao......mais axo que nao é tao facil assim....

cara na verdade está mudando o nome da Impressora, na combobox e na label, mais está Imprimindo com a Impressora padrão, acho que é só com API mesmo que da certo, difícil manipular a Impressão sem API

Eu tirei a dica que enviei baseado nos links abaixo, crie um novo modelo conforme estes links preenchendo um ListBox e faça os testes :

Selecting a printer from a combobox?
http://computer-programming-forum.com/1 ... a99614.htm

How can I get a list of the available printer names?
http://word.mvps.org/FAQs/MacrosVBA/Ava ... inters.htm

Segue em anexo com as alteracoes veja se é isso msm que precisa:

Caracaaaaaaa velho você é o cara, parabéns pela atenção com os outros e a ajuda, que Deus te abençoe, muito obrigado!!!!

caracaaaa velho muito obrigado mesmo, parabéns!!!!!

parabéns amigo....sabe tudooo!!!!!