Comando Imprimir - Quantas vezes for determinada pelo InputBox

[Silmar]

Bom dia a todos! Estou mudando de Excel para Libre. Tem uma rotina no Excel que serve para imprimir determinada página, na quantidade de vezes que o usuário indicou no Inputbox. A rotina funciona certinho até o momento que chega o comando de imprimir, que é

Blockquote

" ActiveWindow.SelectedSheets.PrintOut From:=PáginaInicial, To:=PáginaFinal, Copies:=Numerodecopias, Collate:=True, IgnorePrintAreas:=False".

Blockquote

Alguém saberia adaptar esse comando para funcionar no Libre?

A rotina completa segue:

Blockquote

"Sub Imprimirpag3()

Dim PaginaInicial
Dim PaginaFinal
Dim numeroprocesso

Numerodecopias = InputBox(“QUANTAS CÓPIAS DESSA COTA DESEJA IMPRIMIR?”)

MsgBox (“SERÁ(ÃO) IMPRESSA(S) " & Numerodecopias & " CÓPIA(S)”)

Sheets(“Menu”).Select
PáginaInicial = Sheets(“Menu”).Range(“a4”).Value
PáginaFinal = Sheets(“Menu”).Range(“a4”).Value
Sheets(“Cotas”).Select

NESSA PARTE ESTÁ DANDO ERRO NO LIBREOFFICE.

ActiveWindow.SelectedSheets.PrintOut From:=PáginaInicial, To:=PáginaFinal, Copies:=Numerodecopias, Collate _

    :=True, IgnorePrintAreas:=False

    Sheets("Menu").Select
    End Sub

Blockquote

O arquivo que estou trabalhando é este: https://www.sendspace.com/file/k8w90g

Desde já agradeço a todos!

[schiavinatto]

Ola @Silmar, em devolução o arquivo.

Alterei as Macros de Impressão e Escrever.

Nomeei as paginas ( por exemplo: pagina 1 = Print01 )

Arquivo alterado.

---

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, perfeito! Gostei da alternativa…

Muito obrigado e Deus te abençoe grandemente!