PRINTER ? COMECAR A USAR

USUARIO.EXCLUIDOS 07/06/2005 15:28:17
#87488
Olá Amigos do VB Mania

Bem, até hoje usei o crystal e o print# (direto pra porta) no vb 5, gostaria de noções rápidas pra começar usar o printer q me parece muito prático.
Se alguém puder ajudar !
Desde já muito obrigado
USUARIO.EXCLUIDOS 07/06/2005 15:30:53
#87490 Resposta escolhida
Procure no proprio site, usando o LOCALIZAR...
Acharás um vasto contéudo....
Tem outros sites também... www.macoratti.net
Também use a opção localizar...
GUTO 07/06/2005 15:34:02
#87492
exemplo basico de printer, visite o site do macoratti , eaki mesmo tem muito exemplo

Dim PaginaInicial, Paginafinal, numerodecopias, i
CommonDialog1.CancelError = True
Dim Sql As String
Dim j, k As Integer
Dim Variavel As String
On Error GoTo imperro
'mostra a janela para impressora
CommonDialog1.ShowPrinter
'Captura os valores definidos pelo usuário na janela
PaginaInicial = CommonDialog1.FromPage
Paginafinal = CommonDialog1.ToPage
numerodecopias = CommonDialog1.Copies
For i = 1 To numerodecopias
Printer.Print

MsgBox "Os dados foram enviados para a impressora ... ! ", vbInformation
Printer.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height
'Printer.EndDoc
Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/yy"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(5); "AREAS --------------------------------"
Printer.Print
Printer.Print Tab(5); "Codigo "; Tab(5); txtcodA.Text
Printer.Print Tab(5); "CodigoImo "; Tab(5); txtcodimo.Text
Printer.Print Tab(5); "Descricao "; Tab(5); txtdesc.Text
Printer.Print Tab(5); "Lotes "; Tab(5); txtlote.Text
Printer.Print Tab(5); "Gleba_Area "; Tab(5); txtgleba.Text
Printer.Print Tab(5); "Quadra "; Tab(5); txtquadra.Text
Printer.Print Tab(5); "Rua "; Tab(5); txtrua.Text
Printer.Print Tab(5); "Bairro "; Tab(5); txtbairro.Text
Printer.Print Tab(5); "Cidade "; Tab(5); txtcidade.Text
Printer.Print Tab(5); "Metragem "; Tab(5); txtmetra.Text
Printer.Print Tab(5); "Valor "; Tab(5); txtval.Text
'Printer.Print Tab(5); "Obs "; Tab(5); txtobs.Text

End If
Next
' acaba aki
Printer.EndDoc
Exit Sub
imperro:
MsgBox "Impressora não esta pronta ou está com problemas , Verifique !!!", vbInformation
Printer.KillDoc
Exit Sub
End Sub
USUARIO.EXCLUIDOS 09/06/2005 08:32:58
#87918
MUITO OBRIGADO A TODOS AMIGOS DO VBMANIA !!!
LEANDRO.BUENO 09/06/2005 10:38:05
#87957
Amigo MD SISTEMAS,

eu mesmo postei um exemplo básico para impressão printer aqui mesmo no site vb-mania, de uma olhada:
http://www.vbmania.com.br/vbmdetail.php?varID=3012/
espero ter ajudado e boa sorte amigo.
LEANDRO.BUENO 09/06/2005 10:39:14
#87958
tire a barra no final.
http://www.vbmania.com.br/vbmdetail.php?varID=3012/
LEANDRO.BUENO 09/06/2005 10:39:41
#87959
http://www.vbmania.com.br/vbmdetail.php?varID=3012/
USUARIO.EXCLUIDOS 10/06/2005 18:33:08
#88343
MUITO OBRIGADO, COMECEI USANDO SEU EXEMPLO !!!
Agora tenho umas dúvidas :
- Preciso de uma impressão rápida tipo (DOS)
- Quando mudei as letras as vezes da certo as vezes não, existe uma variação de fontes e normalmente vai pra uma fonte lenta, como definir as fonte corretamente ?
OBRIGADO
Tópico encerrado , respostas não são mais permitidas
Voltar