none
VBA_EXCEL RRS feed

  • Pergunta

  • Bom Dia a Todos
    Gostaria da ajuda de todos para o uso de um userform, tenho duas impressoras e gostaria de colocar duas OptionButton para escolher qual impressora devo usar para imprimir uma planilha, seria interessante se quando iniciasse a o userform aparecesse o nome da impressora em cada OptionButton.
    Srs, se alguém puder me ajudar, agradeço.
    Mauro

    quinta-feira, 9 de abril de 2009 19:35

Respostas

Todas as Respostas

  • Tente gravar uma macro, vc conseguirá algo assim:

    Sub Impressoea()
    Application.ActivePrinter = "HP Deskjet 3900 Series em Ne01:" 'Aquí sua impressora
    End Sub

    jose
    quinta-feira, 9 de abril de 2009 23:22
  • Bom Dia José

    Obrigado pelo código, mais a intenção é que através do código eu consiga colocar uma das duas impressoras como padrão e imprimir na mesma.

    Abraço
    Mauro
    segunda-feira, 20 de abril de 2009 14:28
  • Boa noite Mauro,

    Tente assim:

    Sub Impressoea()

    Application.ActivePrinter = "HP Deskjet 3900 Series em Ne01:" 'Aquí sua impressora

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    'aquí para imprimir uma cópia

    End Sub

    jose
    terça-feira, 21 de abril de 2009 23:13
  • Oi José, Boa Tarde

    Agradeço mesmo a intenção, mas ainda não é assim, bom é o seguinte.
    São duas impressoras, uma lexmark e outra da canon, eu preciso fazer a erscolha através de um código para imprimir ou na lexmark ou na canon, isto pode ser feito através de dois botões "OptionButton" em um UserForm, quando iniciar o UserForm, automoaticamente os nomes dos botões aparecam os nomes das impressoras instaladas no computador, dando uma escolha para imprimir ou na lexmark ou na canon.

    Grato
    Mauro
    quinta-feira, 23 de abril de 2009 17:58
  • A maneira mais fácil é simplesmente usar o código:

     'Application.Dialogs(xlDialogPrinterSetup).Show

    Dessa forma serão exibidas as impressoras instaladas no computador e ficará a critério do usuário escolher a que melhor se adequa ao momento.

    sexta-feira, 25 de outubro de 2013 17:51