Como fazer uma barra de progresso que enche com um critério?

[joaorochaj]

Boa tarde, eu tenho uma planilha de cadastro e impressão de identificações (que foi postado aqui no site),eu quero fazer uma barra de progresso que conforme ele imprime ele vai enchendo a barra.
Exemplo : tem uma barra no painel que esta 0% ,ai eu vou imprimir 10 identificações então conforme ele passa na macro de imprimir ele vai enchendo,ou caso eu for precisar de somente 2 ele vai de 0% ate 100% mesmo eu alternando a quantidade.

[schiavinatto]

Já tentou adaptar esta: Configurar barra de progresso na caixa de dialogo

E aqui no Manual de Mauricio Baeza Servín: https://www.schiavinatto.com/mundolibre/biblioteca/aprendiendo/8.11---barra-de-progreso--progressbar-.html

[Grafeno]

@joaorochaj, para usar uma barra de andamento, a melhor forma é que o critério esteja em loop. Veja pelos exemplos trazidos pelo @Gilberto Schiavinatto e tantos outros na web. Vc cita a planilha de cadastro, mas quais são os trechos que imprimem as identificações. Como estão organizados?

[RonaldoElias]

.

Function BarProgFormulario()
	On Error Goto Sair
        Dim BP as Object
		pbFormulario = dlg.getControl("pbFormulario")'barra de progresso
		txtConcluido = dlg.getControl("txtConcluido")'campo de rótulo
			If (txtConcluido.Text = "") Then
				txtConcluido.Text = " "
				While (txtConcluido.Text <> "")
					With pbFormulario.getModel()
						For BP = .ProgressValueMin To .ProgressValueMax
							.ProgressValue = BP
							Wait(1)
						Next BP
						If (.ProgressValueMax = 20) Then
							.ProgressValue = 0
						Else
						End if
					End With
					With txtConcluido.getModel()
						.BackgroundColor = RGB(Rnd*218,Rnd*255,211)
						.Label = "C O N C L U Í D O !"
					End With
					Wait(1000)
					With txtConcluido.getModel()
						.Label = ""
					End With
				Wend
			Else
			End if
	On Error Goto 0
	Exit Function
	Sair:
	MsgBox "Linha " & Str(Erl) & ": " & Error$, 176, "Erro: Falta de Parâmetro"
	On Error Goto 0
End Function