CUPOM DE EMPRESTIMOS

ADRIANOM 11/09/2010 11:24:16
#352716
Na picture fica certinho, mas quando mando imprimir sai desordenado...

este esquema é o mesmo do exemplo instruído acima pelo RICARDOTOM.
GERARDA 11/09/2010 12:32:57
#352718
impresso do exemplo que postei

http://picasaweb.google.com/lh/photo/jm_bU0m1lVqqbaWiJBimsw?feat=directlink





putz alguem pode me dizer como faz para a foto aparecer aqui
ADRIANOM 11/09/2010 12:38:57
#352719
CAro amigo GERARDA

Agradeço pela imensa ajuda... meu recibo estava saindo dessa forma que você postou na imagem... então tive que gastar papel mesmo.. e cheguei ao produto final desejado....

Deixo aqui minha contribuição pois não tenho receio de ajudar quem precisa, sei que é comércio a vida de programador, mas como eu ... alguém deve entender que ajudar a progredir os outros reflete em sua própria progressão....

o Código usado para o LAYOUT

Citação:


Printer.Print String(70, [Ô]-[Ô]) [ô]Faz uma Linha
Printer.FontBold = True
Printer.Print Tab((35 - Len(Empresa)) / 2); Empresa [ô]Centraliza N. Empresa
Printer.FontBold = False
Printer.FontSize = 8
Printer.Print String(70, [Ô]-[Ô])
Printer.FontSize = 8
Printer.Print Tab((50 - Len(Rua)) / 2); Rua [ô]Centraliza Rua
Printer.Print Tab((50 - Len(Dados)) / 2); Dados [ô]Centraliza Dados Adicionais
Printer.Print Tab((50 - Len(Cit)) / 2); Cit [ô]Centraliza Cidade
[ô] Fonte 12, True, False
Printer.Print
Printer.FontBold = True
Printer.FontSize = 10
Printer.Print Tab((12 - Len(Comprovante)) / 2); Comprovante
[ô] Fonte 10, False, False
Printer.FontBold = False
Printer.Print
Printer.FontSize = 6
Printer.Print Tab(3); txtUsuario.Text; [Ô] [Ô]; Format(Date, [Ô]dd/mm/yyyy[Ô]); [Ô] [Ô]; Format(Time, [Ô]hh:mm:ss[Ô]);
Printer.Print
[ô]CurrentY = 2150 [ô]Vai para a coluna do Form escolhida
[ô] Fonte 12, False, True
[ô] Fonte 10, False, False
Printer.FontSize = 8
Printer.Print String(70, [Ô]-[Ô])
Printer.Print [Ô] Código Aluno SérieSala[Ô]
Printer.Print String(70, [Ô]-[Ô])
Printer.Print
Printer.Print Tab(3); txtCodAluno.Text; Tab(3); Mid(txtAluno.Text, 1, 28); Tab(35); txtSerie.Text [ô]Limita a 26 letras
Printer.Print
Printer.Print String(70, [Ô]-[Ô])
Printer.Print [Ô] Código Livro[Ô]
Printer.Print String(70, [Ô]-[Ô])
Printer.Print Tab(3); txtCodLivro.Text; Tab(2); Mid(txtLivro.Text, 1, 25);
Printer.Print
Printer.Print String(70, [Ô]-[Ô])
Printer.FontBold = True
Printer.FontSize = 9
Printer.Print [Ô]Devolução em:[Ô]; Tab(28); txtDevolucao.Text
Printer.FontBold = False
Printer.FontSize = 8
Printer.Print String(70, [Ô]-[Ô])
[ô] nunca esqueça o enddoc, pois é ele que envia o documento para impressora
Printer.EndDoc
[ô]fim do esquema de impressão

GERARDA 11/09/2010 12:43:09
#352721
ficou bem legal
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar