Como Implantar o Loop For para Repetição de Comando

[Silmar]

Bom dia a todos!
Tenho uma rotina que imprime determinada página.
O problema é que as vezes preciso imprimir essa página 35 vezes, por exemplo.
Para não ficar clicando e contando, pensei em acrescentar na rotina de impressão um LOOP FOR, que iria repetir o comando na quantidade de vezes que o usuário definir através do InputBox.

Exemplo:

Sub Imprimirpag1()

sheets(“Cotas”).Select

’ comando para inserir a quantidade de cópias
Numerodecopias = InputBox(“QUANTAS CÓPIAS DESSA COTA DESEJA IMPRIMIR?”)

’ comando para imprimir pagina1
CreateUnoService(“com.sun.star.frame.DispatchHelper”).executeDispatch(ThisComponent.CurrentController.Frame,
“.uno:DefinePrintArea”, “”, 0, Array()) CreateUnoService(“com.sun.star.frame.DispatchHelper”)
_ .executeDispatch(ThisComponent.CurrentController.Frame,".uno:PrintDefault", “”, 0, Array())

End Sub

Minha dificuldade é incluir nessa rotina o LOOP for, de modo que o comando para imprimir a página 1 seja repetida na quantidade de vezes que foi definida pelo usuário no “INPUTBOX”?

Se alguém souber me ajudar, ficarei imensamente agradecido!
Bom domingo a todos!

[schiavinatto]

@Silmar, segue macro alterada,

sheets("Cotas").Select estava gerando erro troquei pelo comando GoToCell

O nome da planilha “Cotas” pode substituir pela nome da área de impressão…

Sub Imprimirpag1()
'sheets("Cotas").Select
Dim Numerodecopias%
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = "Cotas"
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1())
' comando para inserir a quantidade de cópias 
Numerodecopias = InputBox("QUANTAS CÓPIAS DESSA COTA DESEJA IMPRIMIR?")
		For Imprimir = 1 To Numerodecopias
' comando para imprimir pagina1 
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:DefinePrintArea", "", 0, Array()) 
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame,".uno:PrintDefault", "", 0, Array())
		Next Imprimir
End Sub

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[Silmar]

@Gilberto, muitíssimo obrigado! Funcionou perfeitamente!!! Deus o abençoe!