COMANDO PRINT COM REGISTRO DE BANCO DE DADOS
Me digam como fazer para que o conteúdo de um registro de uma tabela no ACESS apareça na picturebox através do comando Print. Exemplo: Numa tabela EMPRESA tem nome fantasia, endereço, telefone e quero fazer com que cada campo do único registro da tabela apareça um embaixo do outro como se fosse uma nota fiscal com as especificações da empresa. ajudem por favor...
muito obrigado pela atenção
muito obrigado pela atenção
Andrew
Como fazer isto eu já te expliquei, no link abaixo tem um exemplo:
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=59209
Estude o código e adapte o mesmo para suas necessidades e por favor, [b]não encerre se ainda tiver dúvidas.
[s50]
Como fazer isto eu já te expliquei, no link abaixo tem um exemplo:
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=59209
Estude o código e adapte o mesmo para suas necessidades e por favor, [b]não encerre se ainda tiver dúvidas.
[s50]
vou colocar o código aqui para ver se facilita. esse código está adaptado para somente aparecer o que está no código-fonte.
NF.Cls
Const Empresa = "Frango Veloz " >>Aqui vou colocar o campo nome fantasia
Const Rua = "Rua Conde de Bomfim ,33" >> aqui o campo rua
Const Dados = "Fone (021) 1234 5678" >>e aqui telefone
Const Cit = "Rio de Janeiro - RJ"
NF.Print String(40, "-") 'Faz uma Linha
NF.Print Tab((40 - Len(Empresa)) / 2); Empresa 'Centraliza N. Empresa
NF.Print String(40, "-")
NF.Print Tab((40 - Len(Rua)) / 2); Rua 'Centraliza Rua
NF.Print Tab((40 - Len(Dados)) / 2); Dados 'Centraliza Dados Adicionais
NF.Print Tab((40 - Len(Cit)) / 2); Cit 'Centraliza Cidade
NF.Print " CNPJ:"; Tab(21); "12.985.54/5416-15"
NF.Print " INSC.ESTADUAL:"; Tab(27); "123/4125698"
Fonte 12, True, False
NF.Print Tab(10); "CUPOM FISCAL"
Fonte 10, False, False
NF.Print Tab(2); Format(Date, "dd/mm/yyyy"); " "; Format(Time, "hh:mm:ss"); Tab(22); "SWE99999999";
NF.CurrentY = 2150 'Vai para a coluna do Form escolhida
Fonte 12, False, True
NF.Print Tab(28); "BR"
Fonte 10, False, False
NF.Print " Nº da conta:"; Tab(2); "" & Txtnum.Text & ""
NF.Print String(40, "-")
NF.Print " Código Produto"
NF.Print " Qtde Unitátio PreçoTotal"
NF.Print String(40, "-")
tomara que isso ajude
NF.Cls
Const Empresa = "Frango Veloz " >>Aqui vou colocar o campo nome fantasia
Const Rua = "Rua Conde de Bomfim ,33" >> aqui o campo rua
Const Dados = "Fone (021) 1234 5678" >>e aqui telefone
Const Cit = "Rio de Janeiro - RJ"
NF.Print String(40, "-") 'Faz uma Linha
NF.Print Tab((40 - Len(Empresa)) / 2); Empresa 'Centraliza N. Empresa
NF.Print String(40, "-")
NF.Print Tab((40 - Len(Rua)) / 2); Rua 'Centraliza Rua
NF.Print Tab((40 - Len(Dados)) / 2); Dados 'Centraliza Dados Adicionais
NF.Print Tab((40 - Len(Cit)) / 2); Cit 'Centraliza Cidade
NF.Print " CNPJ:"; Tab(21); "12.985.54/5416-15"
NF.Print " INSC.ESTADUAL:"; Tab(27); "123/4125698"
Fonte 12, True, False
NF.Print Tab(10); "CUPOM FISCAL"
Fonte 10, False, False
NF.Print Tab(2); Format(Date, "dd/mm/yyyy"); " "; Format(Time, "hh:mm:ss"); Tab(22); "SWE99999999";
NF.CurrentY = 2150 'Vai para a coluna do Form escolhida
Fonte 12, False, True
NF.Print Tab(28); "BR"
Fonte 10, False, False
NF.Print " Nº da conta:"; Tab(2); "" & Txtnum.Text & ""
NF.Print String(40, "-")
NF.Print " Código Produto"
NF.Print " Qtde Unitátio PreçoTotal"
NF.Print String(40, "-")
tomara que isso ajude
No exemplo acima, na picturebox vai aparecer o nome fantasia, endereço e o telefone que coloquei no código...mas eu quero que no lugar desses valores, apareça na picturebox o campo de cada registro respectivo, como nome fantasia no lugar de frango veloz, endereço no lugar de conde de bonfim e etc. o código acima é colocado no form_load e no form_activate do form
acho que isso ajuda...qualquer coisa postem aÃ,ok???
acho que isso ajuda...qualquer coisa postem aÃ,ok???
Tópico encerrado , respostas não são mais permitidas