Numeração sequencial

2024 - VBA & Macros

Post Recente por Martti 10 anos atrás

4 Posts

2 Usuários

0 Reactions

737 Visualizações

RSS

Martti

(@martti)

Posts: 3

New Member

Topic starter

Há anos utilizo a macro abaixo com muito sucesso para imprimir laudos com numeração sequencial.
Porém, deparei-me com um problema.
Agora serão impressos dois recibos de laudo por página(A4), com duas células de referência,
que são a H1 e H17.
Preciso da colaboração dos colegas para integrar a célula H17 à macro.
Agradeço desde já a ajuda dos colegas.
:geek:

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("Laudo_res").Range("H1").Value = TempNumber
      ActiveWorkbook.Sheets("Laudo_res").PrintOut
  Next TempNumber
End Sub

Postado : 29/05/2015 8:43 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Martti, precisa ser um pouco mais claro, eu estou supondo uma coisa, mas pode ser que não seja, então quando diz :

Agora serão impressos dois recibos de laudo por página(A4), com duas células de referência, que são a H1 e H17
Seriam dois recibos do mesmo numero em uma pagina (H1) e dois com outro numero (H17) em outra página, ou seja original e cópia do mesmo recibo ?

A aba "Laudo_res" que está recebendo o numero do Recibo (TempNumber), ela está configurada com layout para duas impressões no mesmo papel ?

Se possível anexe um modelo de como quer que fique e detalhando se são dois do mesmo na página ou não.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 29/05/2015 10:29 am

Martti

(@martti)

Posts: 3

New Member

Topic starter

Olá Mauro, obrigado pela resposta.
Realmente não descrevi muito bem o problema.
Originalmente era um laudo por página, que pela macro, definia-se a primeira e a última página
e a numeração de cada laudo era impressa sequencialmente (célula H1).
Agora serão dois laudos resumidos na mesma página, que devem possuir numeração independente e sequencial.
Traduzindo, antes, se eu pedisse 10 laudos, começando pelo 1, os laudos seriam 1, 2, 3...10.
Agora tem que ser página 1- laudo1/laudo2, página 2- laudo3/laudo4, página 3- laudo 5/laudo6 etc..., sendo H1/H17.
A aba "Laudo_res" já está configurada para dois laudos no mesmo papel.
Segue em anexo um rascunho do novo layout do laudo, pela política da empresa não posso postar o arquivo original.
Se ainda não me fiz entender, é só perguntar, estou à disposição.
Muito obrigado.