Este fórum está sendo desativado

[Kulld]

Boa tarde pessoal.
Eu tenho um documento que preciso imprimir diariamente e cada vez que eu fazer uma impressão quero que mude de numero, não número de páginas mas um número que fará diferença entre uma e outra copia e o número deve estar a crescer constantemente, mas esta automação deve acontecer no acto da impressão.
exemplo em anexo.

[Reinaldo]

Veja se atende:

Código: Selecionar todos

Sub ImprimePlan()
Dim Response

OutraCopia:
      
Sheets("Beira").Range("C4:J175").PrintOut

Response = MsgBox("Outra Copia?", vbYesNo + vbQuestion, "Confirmação")

If Response = vbNo Then
    GoTo Saida
Else
    GoTo OutraCopia
End If
Saida:
'Altera numeroDoct
Range("C4").Value = "DOC Nº " & Format(Val(Right(Range("C4"), 5)) + 1, "00000")
End Sub

[osvaldomp]

Experimente:
Instale o código abaixo no módulo de EstaPasta_de_trabalho (na sua versão talvez seja EsteLivro), assim:
1. copie o código daqui
2. a partir de qualquer planilha tecle 'Alt+F11' para acessar o editor de VBA
3. no lado esquerdo da tela dê duplo clique em EstaPasta_de_trabalho
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 If ActiveSheet.Name <> "Beira" Then Exit Sub
  With Sheets("Beira").[D4]
   .NumberFormat = "@"
   .Value = Format(.Value + 1, "00000")
  End With
End Sub

[Kulld]

Boa tarde.
Antes angradecer pela vossa desponibilidade.
Mas estou com dificuldades de verificar o numero apos a impressão do documento.
Não sei se é possivel configurar de modo a ter uma macro em que eu possa escolher o locar no documento onde possa aparecer o numero mesmo se for no meio do documento.

[mprudencio]

Nao entendi essa parte:

"Uma macro onde possa escolher o local do numero."

Um contador pode ser feito assim:

Código: Selecionar todos

Sub Contador()

Dim Contador as long

Contador = Range("A1").value + 1

Range("A1").value = Contador

End Sub

Como nao entendi nao sei onde isso se adequa ao codigo do colega acima.