Página 1 de 1
Definir área de impressão somente em campos preenchidos
Enviado: 26 Out 2020 às 21:23
por 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...
Re: Definir área de impressão somente em campos preenchidos
Enviado: 27 Out 2020 às 05:46
por 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!

Re: Definir área de impressão somente em campos preenchidos
Enviado: 31 Out 2020 às 17:11
por 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
Re: Definir área de impressão somente em campos preenchidos
Enviado: 02 Nov 2020 às 05:51
por AfonsoMira
Boas experimente se é isso que pretende, esteja à vontade para pedir alterações.
Ficheiro em anexo.
SAC Ativo.xlsm
Re: Definir área de impressão somente em campos preenchidos
Enviado: 02 Nov 2020 às 13:38
por 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.
Re: Definir área de impressão somente em campos preenchidos
Enviado: 02 Nov 2020 às 14:24
por 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.

Re: Definir área de impressão somente em campos preenchidos
Enviado: 03 Nov 2020 às 22:48
por 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.
Re: Definir área de impressão somente em campos preenchidos
Enviado: 04 Nov 2020 às 05:44
por 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
- desmarca a caixinha onde diz "Imprimir objeto" ou algo desse género
Pronto sua forma não irá aparecer na impressão.
Re: Definir área de impressão somente em campos preenchidos
Enviado: 08 Nov 2020 às 23:31
por 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.
Re: Definir área de impressão somente em campos preenchidos
Enviado: 09 Nov 2020 às 05:54
por AfonsoMira
Boas, por enquanto o botão de resolvido está desabilitado.