Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro ao digitar na célula do excel e impressão

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Diego_ufo
Colaborador
Colaborador
Mensagens: 16
Registrado em: Sex Set 28, 2012 6:21 pm

Erro ao digitar na célula do excel e impressão

Mensagem por Diego_ufo »

Boa noite amigos
montei um formulario de registro de escola, deu tudo certo quando se digita no formulario
mas se eu quiser digitar no excel na planilha de dados aparece o erro " é impossivel localizar o objeto ou a biblioteca"
um outro problema q estou enfrentando é a impressão
eu quero mandar pro word e depois imprimir
mas tava imprimindo e enviando copia para o word

e agora tambem esta dando erro e não imprimi

se alguem puder me ajudar eu agradeço muito, sou novato em vba..sou um curioso, mas não entendo quase nada
e se puder tambem me ajudar no com form 1 em como envia-lo para a impressora sem aparecer a barra com o x e tudo mais, pois ali será declaração escolar


mais um vez obrigado a todos
Anexos
REGISTRO SECRETARIA ESCOLAR.rar
(125.7 KiB) Baixado 252 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Diego_ufo
Colaborador
Colaborador
Mensagens: 16
Registrado em: Sex Set 28, 2012 6:21 pm

Re: Erro ao digitar na célula do excel e impressão

Mensagem por Diego_ufo »

Boa Noite
se alguem souber uma maneira mais fácil de montar essa tabela e puder me auxiliar
eu agradeço muito
obrigado!


Avatar do usuário
BaptistaCG
Colaborador
Colaborador
Mensagens: 96
Registrado em: Seg Jul 30, 2012 10:33 pm
Localização: Sorocaba/SP

Re: Erro ao digitar na célula do excel e impressão

Mensagem por BaptistaCG »

Bom dia,

Amigo não sei exatamente se consigo te ajudar, porém pra ter certeza se consigo, preciso entender melhor o seu projeto e o que quer fazer, talvez seja possível simplificar bem mais o seu projeto...

Posta novamente ae as tarefas que deseja realizar em seu formulário, pois assim talvez poderemos usar outros meios para chegar no que deseja...

Att...


Diego_ufo
Colaborador
Colaborador
Mensagens: 16
Registrado em: Sex Set 28, 2012 6:21 pm

Re: Erro ao digitar na célula do excel e impressão

Mensagem por Diego_ufo »

Bom dia amigo!
bom com relação ao que quero criar é o seguinte:
eu quero um formulario de cadastro de alunos, neste formulário terá todas as informações do aluno, tanto pessoais como escolar
isso eu consegui fazer, então tambem quero achar uma maneira de exportar essa ficha para o word e entao poder imprimir ou não
pois o codigo que eu encontrei, ele imprimi e gera uma copia para o word, mas eu não consigo nem visualizar a impressão e nem selecionar a impressora
e uma outra coisa que quero desenvolver, mas mais para frente, uma form que será declaração escolar, ela puxará os dados do aluno de acordo com o que for selecionado
no formulário de pesquisa. e o mesmo esquema enviar para o word e depois imprimir, mas a forma que eu achei de enviar para o word ele usa o scanscope, mas a barra superior com o nome do form e o [x] saem junto, eu queria uma maneira de enviar sem aparecer essa barra.

Obrigado pela ajuda


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
BaptistaCG
Colaborador
Colaborador
Mensagens: 96
Registrado em: Seg Jul 30, 2012 10:33 pm
Localização: Sorocaba/SP

Re: Erro ao digitar na célula do excel e impressão

Mensagem por BaptistaCG »

Só mais uma dúvida, você vai precisar editar o texto exportado para o word? o seu formulário não permite atualizar os dados? Pois creio que se for somente para arquivo da ficha individual do aluno é melhor você exportar para .pdf pois assim ninguém pode alterar os dados sem sua permissão, e também um arquivo muitíssimo leve em comparação ao .doc para arquivar...
Eu posso resolver este problema se for assim pois já desenvolvi algo semelhante.
Att...


Diego_ufo
Colaborador
Colaborador
Mensagens: 16
Registrado em: Sex Set 28, 2012 6:21 pm

Re: Erro ao digitar na célula do excel e impressão

Mensagem por Diego_ufo »

Caro amigo [quote="BaptistaCG"]...poderia ser para pdf também, o exportar seria apenas para guardar um arquivo preenchido de cada aluno
se o pdf for melhor, então tudo bem...porque não será editado mais nada.

Muito obrigado


Avatar do usuário
BaptistaCG
Colaborador
Colaborador
Mensagens: 96
Registrado em: Seg Jul 30, 2012 10:33 pm
Localização: Sorocaba/SP

Re: Erro ao digitar na célula do excel e impressão

Mensagem por BaptistaCG »

Diego_ufo escreveu:Caro amigo
BaptistaCG escreveu:...poderia ser para pdf também, o exportar seria apenas para guardar um arquivo preenchido de cada aluno
se o pdf for melhor, então tudo bem...porque não será editado mais nada.

Muito obrigado
Ok, Diego estou indo para a faculdade, mas assim que voltar tento resolver o seu problema no maximo até amanha te dou um feedback, Obrigado.

Att...


Diego_ufo
Colaborador
Colaborador
Mensagens: 16
Registrado em: Sex Set 28, 2012 6:21 pm

Re: Erro ao digitar na célula do excel e impressão

Mensagem por Diego_ufo »

Ta legal meu amigo...obrigado


Avatar do usuário
BaptistaCG
Colaborador
Colaborador
Mensagens: 96
Registrado em: Seg Jul 30, 2012 10:33 pm
Localização: Sorocaba/SP

Re: Erro ao digitar na célula do excel e impressão

Mensagem por BaptistaCG »

Prezado Diego _ufo
Segue abaixo as macros solicitadas .
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Impressoras()
'
'Este comando exporta para .pdf note que onde está vermelho é o diretório que vc deseja exportar o .pdf e o azul é onde se coloca o nome que o arquivo vai ter após exportado, no caso é o conteúdo da célula "a1"
ChDir "C:\Users\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("a1").Value & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

'Visualiza a impressão
'Obs. Você pode colocar para visualizar também antes de imprimir utilizando o comando Preview:=true depois de Copies:=1
ActiveWorkbook.PrintPreview

'Abre tela para selecionar impressora e todas as configurações de impressão, e depois imprime.
Application.Dialogs(xlDialogPrint).Show

'Abre tela para selecionar qual será a impressora padrão e se desejar, configurar impressora.
Application.Dialogs(xlDialogPrinterSetup).Show

'Imprime na "impressora padrão" a pasta de trabalho inteira
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

'Imprime na "impressora padrão" somente a planilha ativa
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

'Obs.: "impressora padrão" é do excel e não a do windows.

End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Espero ter ajudado, qualquer dúvida é só perguntar estamos as ordens...

Att...


Diego_ufo
Colaborador
Colaborador
Mensagens: 16
Registrado em: Sex Set 28, 2012 6:21 pm

Re: Erro ao digitar na célula do excel e impressão

Mensagem por Diego_ufo »

Obrigado meu amigo, mas tenho algumas dúvidas..uma: aonde exatamente insiro esse código? no botão imprimir?
o codigo esta assim:


Private Sub bt_imprimir_Click()

Dim Wrd As Object, WrdDoc As Object, Resposta As String

Resposta = MsgBox("Deseja imprimir o formulário ativo no Word e Impressora?", _
vbYesNo + vbInformation, "IMPRIMIR")
If Resposta = 6 Then '6 = sim

'Captura a tela na forma ativa
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

Set Wrd = CreateObject("Word.Application") 'criando uma sessão no Word
Wrd.Visible = True 'condição pendenete para acionar ou nao o word

On Error Resume Next
Set WrdDoc = Wrd.Documents.Add
WrdDoc.PageSetup.Orientation = wdOrientLandscape

Wrd.Selection.PasteSpecial 'colando o documento dentro do word

With WrdDoc.Shapes(1) 'redimensionamento e posicionamento do objeto a ser impresso
.Left = 10 'Borda à Esquerda
.Top = 20 'Borda ao topo(Alto)
.Width = 480
End With

WrdDoc.PrintOut 'Impressão,

'WrdDoc.Close False 'fecha o word sen salvar
'WrdDoc.Quit 'fecha o Aplicativo Word

Else

Exit Sub
End If

MsgBox ("Formulário, imprimido com sucesso no Word e Impressora!!!"), vbInformation, "IMPRIMIR"
End Sub

e outra meu programa quando digito algo diretamente na planilha do excel da erro dizendo q nao foi possivel encontrar a biblioteca ou o projeto e entao abre a janela de referencias do visual basic...
não sei porque aconteceu isso.

Obrigado


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder