IMPRESSAO PRINTER.PRINT


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: IMPRESSAO PRINTER.PRINT

hm1020

CASTELANDIA
GO - BRASIL

ENUNCIADA !

Postada em 08/03/2010 08:57 hs

Pessoal, Bom dia

Mais uma vez estou para pedir ajuda a voces

O meu problema é o seguinte:
Tenho um BANCO DE DADOS ACCESS, com o nome"Hospital", e dentro dele uma das tabela, qual eu quero usar chama-se
"ATENDIMENTO", essa tabela tem o campo chamado "DATA",

no formulario tenho duas caixas de texto com os nomes Wdataini e outra com o nome Wdatafim. O que eu quero é atraves dessa consulta imprimir o resultado com o tipo de impressão PRINTER.PRINT. Gostaria que voces me ajudassem a montar um tipo de fazer uma procura nos dados informada acima e jogar o resultado, tanto para impressão na tela com o impressora

Uso Visual Basic 6 - DAO 3.6

Caso alguem possa me ajudar, desde ja agradeço

J.Carlos

PRESIDENTE PRUDENTE
SP - BRASIL

ENUNCIADA !

Postada em 10/03/2010 08:16 hs

Impressão printer.print direciona sua impressão diretamente pro spool.

Eu particularmente uso o CrystalReport. Desenho o relatório conforme minha necessidade e depois mando executá-lo pelo vb passando parâmetros para o meu report como por exemplo fazendo com que ele selecione o periodo que deseja ser impresso.

hm1020

CASTELANDIA
GO - BRASIL

ENUNCIADA !

Postada em 10/03/2010 11:07 hs

J.Carlos

Me mande um exemplo do jeito que voce descreveu, por favor

Desde ja agradeço

J.Carlos

PRESIDENTE PRUDENTE
SP - BRASIL

ENUNCIADA !

Postada em 10/03/2010 11:50 hs

'gdtinicio e gdtfinal são variáveis tipo date definidas num módulo e que já estavam preenchidas com o período desejado

gReport.ReportFileName = App.Path & "" & "RelResumoCadastramentoAssessor.rpt"
gReport.Formulas(0) = "Periodo='" & Format(gdtInicio, "dd/mm/yy") & " a " & Format(gdtFinal, "dd/mm/yy") & "'" 'Aqui eu passo pro report uma fórmula definida nele pra ser impressa no cabeçalho
gReport.SelectionFormula = "{v_Pessoas.D_Cadastro}>= date('" & Format(gdtInicio, "yyyy-mm-dd") & "')" & " and {v_Pessoas.D_Cadastro}< date('" & Format(gdtFinal + 1, "yyyy-mm-dd") & "')" ' aqui é passado pro report pra pegar dados deste período

greport.Destination = crptToWindow 'Manda o report pro vídeo e depois manda impmir
gReport.Action = 1 'manda executar o report
gReport.Formulas(0) = "" 'limpo o parametro de formulas
gReport.SelectionFormula = "" 'limpo o parametro de seleção
'Observação: greport é uma variável tipo crystal report criada num módulo e que foi ligada com objeto crystal que coloquei no menu principal, mas que vc pode por no proprio form também aí é só por no load do form o seguinte comando: Set gReport = CrystalReport1

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR