IMPRIMIR

USUARIO.EXCLUIDOS 01/08/2007 14:04:19
#228823
Ola pessoal, estou precisando de uma ajudona, tenho um relatorio que funciona do jeito que preciso.
é gerado um arquivo txt onde contem o relatorio que preciso, e depois ele é visualizado em um Rich textbox, gero com as linhas de comando abaixo.

Private Sub Form_Load()
Close ' Fecha o arquivos se ele estiver aberto
Kill App.Path & "\preview.txt" 'Exclui o arquivo
ifile = FreeFile 'Cria um arquivo novo
Open App.Path & "\preview.txt" For Append As #ifile 'abre o arquivo e salva-o com o nome de preview.

Print #ifile, Tab(20); "VIGILÂNCIA E SERVIÇO DE APOIO"; Tab(85); "VIGILÂNCIA E SERVIÇO DE APOIO";
Print #ifile, Tab(10); "Sempre que precisar ligue! Estamos a sua disposição"; Tab(75); "Sempre que precisar ligue! Estamos a sua disposição";
Print #ifile, Tab(11); Cel & "/"; celsup & "/" & resup; Tab(75); Cel1 & "/"; celsup1 & "/" & resup1;
Print #ifile, Tab(5); "Venc.: " & Venc & "/" & Format(Date, "mm/yyyy"); Tab(42); "Recebi: " & Format(valor, "R$#,##0.00;(R$#,##0.00)"); Tab(75); "Venc.: " & Venc1 & "/" & Format(Date, "mm/yyyy"); Tab(115); "Recebi: " & Format(valor1, "R$#,##0.00;(R$#,##0.00)")
Print #ifile, Tab(5); "Nome: " & nome; Tab(75); "Nome: " & Nome1
Close #ifile
End Sub



Private Sub txtpreview_GotFocus()
arquivo = App.Path & "\preview.txt" ' Indica o local onde o arquivo esta
Open arquivo For Input As #1 ' Abre o arquivo
txtpreview.Text = Input(LOF(1), #1) 'Exibe o arquivo no text
Close 'Fecha o arquivo ao sair
End Sub


O relatorio fica perfeito na visualização, só que tudo com uma mesma letra e tamanho, gostaria de saber como faço para aparecer ja formatado do jeito que preciso, no Rich text box
Exemplo
"VIGILÂNCIA E SERVIÇO DE APOIO" = Negrito / tamanho 12
"Sempre que precisar ligue! Estamos a sua disposição" = Negrito / tamanho 9


caso nao entendam tentarei explicar melhor, preciso com urgencia
USUARIO.EXCLUIDOS 01/08/2007 14:08:02
#228824
Vejam na figura imagem2 como fica o relatorio na tela e na imagem3 como eu gostaria que ficasse.
USUARIO.EXCLUIDOS 01/08/2007 14:14:37
#228826
Imagem3
USUARIO.EXCLUIDOS 01/08/2007 15:39:14
#228847
Vou tentar explicar novamente.

preciso que no richtext já apareça formatado, o titulo "VIGILÂNCIA E SERVIÇO DE APOIO" em negrito no tamanho 12 e "Sempre que precisar ligue! Estamos a sua disposição" também em negrito só que no tamanho 8. Pois na hora que eu pedir para imprimir ele já imprima com a formatação certa.
USUARIO.EXCLUIDOS 01/08/2007 16:54:26
#228879
naum soum bom com isso mas tem usar chr

ex: chr(15) eh um tipo de letra chr(20) outro tipo de letra vai tentando uns numeros ae

espero ter ajudado
DAVID.SP 01/08/2007 16:54:54
#228880
Amigao, tente fazer isso

Fonte 12, True, False
Print #ifile , Tab(20); "VIGILÂNCIA E SERVIÇO DE APOIO"; Tab(85); "VIGILÂNCIA E SERVIÇO DE APOIO";

Private Sub Fonte(Tamanho As Byte, Negrito As Boolean, Italico As Boolean) 'Altera a fonte
    F.FontSize = Tamanho
    F.FontBold = Negrito
    F.FontItalic = Italico
End Sub



Qualquer dúvida posta ai....
USUARIO.EXCLUIDOS 01/08/2007 17:04:46
#228886
Muito legal....

USUARIO.EXCLUIDOS 01/08/2007 18:16:16
#228906
esta dando erro "object requerido" em:

F.FontSize = Tamanho
DAVID.SP 03/08/2007 15:00:00
#229365
Amigao,

Este F é o nome do objeto. No meu caso eu usei um picturebox e foi dado o nome de F. No teu caso vc pode fazer assim:

Printer.FontName = "Times New Roman" ' muda a fonte.

Print #ifile, Tab(20); "VIGILÂNCIA E SERVIÇO DE APOIO"; Tab(85); "VIGILÂNCIA E SERVIÇO DE APOIO";

Printer.FontName = OldFont ' Restaura a fonte original.


Testa ai...qq coisa da um toque
Tópico encerrado , respostas não são mais permitidas
Voltar