Pergunte aqui
0

Comando Imprimir - Quantas vezes for determinada pelo InputBox

perguntadas 2020-03-15 12:14:43 +0200

imagem do gravatar de Silmar

updated 2020-03-18 13:22:01 +0200

imagem do gravatar de Schiavinatto

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!

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

0

respondidas 2020-03-15 18:50:12 +0200

imagem do gravatar de 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 Descrição da imagem na pergunta ou Descrição da imagem abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

Gilberto, perfeito! Gostei da alternativa...

Muito obrigado e Deus te abençoe grandemente!

imagem do gravatar de SilmarSilmar ( 2020-03-16 19:07:26 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2020-03-15 12:14:43 +0200

Lidas: 13 vezes

Última atualização: Mar 15