Este fórum está sendo desativado

[albinosergio]

Boa noite "Mucascostas", Você me solucionou eficazmente esse comando (abaixo) que define "Área de impressão" da planiha de acordo com nº de páginas preenchidas e até execitei com sucesso no modelo que enviei.
Será você ou a equipe do GURU poderiam me ajudar?
- Ao aplicar esse comando na planilha oficial, sempre a última pagina começa 4 linhas abaixo.
- Tem como ao gerar esse PDF, nomear automaticamente com o nome do Operador?

Sub PrintSel()
Dim x As Integer, MyVar As Long
Sheets("Planilha1").Select
MyVar = Application.WorksheetFunction.Count(Sheets("planilha1").Range("B:B")) 'contar só as células preenchidas.
Range("A2:B" & MyVar + 1).Select
x = MsgBox("VOCÊ QUER IMPRIMIR?", vbYesNo + vbQuestion, Title:="© Muca Sistemas - 2020")
If x = vbYes Then
Selection.PrintOut Copies:=1, Collate:=True
Else
Exit Sub
End If
End Sub

Já fiz de tudo e vou continuar tentando achar a solução.
Desde de já meus agradecimentos e desculpe essa "dor de cabeça" rsss...

[AfonsoMira]

Boas tudo bem?
Seria possível deixar um exemplo do arquivo em questão, pois a execução de uma macro ficaria mais fácil.
Obrigado!

[albinosergio]

Obrigado pelo retorno Afonso e desculpe a demora, tive alguns contratempos,
Nunca fiz curso de Excel avançado muito menos ainda VBA, tudo o que vocês vão ver é o que venho aprendendo com ajuda vocês, obrigado (não reparem rsss...).
O que ocorre: (1) Sempre a última pagina do PDF, formulário fica mais abaixo que que os anteriores; (2) Preciso que gere PDF nomeando automaticamente.
Obrigado mais uma vez

[AfonsoMira]

Boas experimente se é isso que pretende, esteja à vontade para pedir alterações.

Ficheiro em anexo.

SAC Ativo.xlsm

[albinosergio]

Acho que estamos quase lá, é basicamente isso, só que preciso que seja um formulário para cada página, por exemplo: 60 nº telefones equivale a 8 páginas, ou seja: "2páginas pra OI", "2páginas pra VIVO", "2páginas pra TIM", "2páginas pra CLARO".
Outra coisa que preciso, é quando gerar o PDF, nomear automaticamente com o nome do Operador.
Obrigado amigo.

[AfonsoMira]

Penso que agora esteja como quer.

Adicionei tambem uma validação de dados onde se coloca o número de telefones para que não dê para inserir números maiores que 250.

E fiz com que a setinha do "digite aqui", não apareça no PDF.

Quanto ao gravar com o nome do Operador ele já está a fazer isso.

Ficheiro em anexo.

[Albino10]

Vaaaleu Afonso, simplesmente fantástico, exatamente o que eu precisava, obrigado!!!
Estudei minuciosamente seu comando e não encontrei como você conseguiu que a setinha não apareça no PDF,
Antes de finalizar esse fórum como RESOLVIDO você poderia informar-me? por favor.

[AfonsoMira]

Para remover a setinha, ou qualquer outro objeto da impressão:

• clique sobre ele com botão direito do mouse

• vai em tamanho e propriedades

• propriedades

• desmarca a caixinha onde diz "Imprimir objeto" ou algo desse género

Pronto sua forma não irá aparecer na impressão.

[Albino10]

Obrigado Afonso por mais essa aula, quero finalizar como RESOLVIDO, mas não estou localizando onde marcar o tópico como resolvido, só me aparece habilitado a opção "Obrigado" desculpe mais essa minha ignorancia.

[AfonsoMira]

Boas, por enquanto o botão de resolvido está desabilitado.