Ir ao conteúdo

Posts recomendados

Postado

Senhores Boa Tarde!!

Possuo uma macro que cria uma numeração sequencial, é só informar de qual numero ate qual numero eu quero que ela cria os arquivos para mim, ela cria e imprimi.

Não foi fácil encontrar e adaptar esta macro, mas o problema é que a impressora de onde trabalho necessita que insira usuário e senha.

Quando solicito a impressão de 50 pag., a macro cria as 50 e já manda imprimir, mas não sei porque ela gera arquivo por arquivo (gera o arquivo 1 e imprimi, gerar o arquivo 2 e imprimi, etc..) neste caso eu tenho que inserir 50 x o usuário e a senha.

Alguém pode me ajudar a criar uma macro que faça isso por mim, de forma que eu coloque na macro atual.

Segue a macro atual que utilizo.

 

Sub ImprimeSequencial()

Dim StartNumber, EndNumber, TempNumber, TempAnswer As Integer


Do
  StartNumber = InputBox("Indique o primeiro número da Sequencia")
  EndNumber = InputBox("Indique o último número da Sequencia")


  TempAnswer = MsgBox("Vão ser impressas " & EndNumber - StartNumber + 1 & _
  " folhas! OK?", vbYesNoCancel, "Confirmar números...")


    Select Case TempAnswer
        Case vbCancel
            Exit Sub
        Case vbYes
            Exit Do
    End Select
Loop


  For TempNumber = StartNumber To EndNumber
      ActiveWorkbook.Sheets("FMAN 01").Range("H1").Value = TempNumber
      ActiveWorkbook.Sheets("FMAN 01").PrintOut
  Next TempNumber
End Sub

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!