AJUDA COM PRINTER

CCRISANEVB 25/06/2010 19:25:05
#345826
Oi. Tenho q criar um programa para imprimir uma etiqueta de 8.5 cm de altura por 10 cm de largura e imprimir a partir do 6 cm de altura e 3 de largura a data atual e um número que irei informar em um textbox. Obs.: Cada etiqueta são separadas por 0,5 cm e em um outro textbox coloco a qtde de etiquetas q desejo imprimir.

Obrigado e agradeço a ajuda de todos.
ROBSON 25/06/2010 20:45:11
#345828

Voce já desenvolveu até onde?
EPISCOPAL 25/06/2010 20:58:45
#345830 Resposta escolhida
bom aqui no site tem um exemplo de visualizar impressão que vc pode configurar a impressão como quiser ..... ou seja, as margens e paginas ...
CCRISANEVB 25/06/2010 22:03:52
#345841
saberia me informar o link???

Obrigado
EDERMIR 25/06/2010 22:53:50
#345842
Basicamente você precisa informar para cada etiqueta a coluna que diz respeito à aquela impressão. Ou seja:

Se há 03 etiquetas por LINHA, então utilize algo parecido com:
printer.currenty = 500 (LINHA onde será impresso o valor)
printer.currentx = 100 (COLUNA onde será impresso o valor)
printer.print DATE() (a data atual)

printer.currentx = 1100 (COLUNA onde será impresso o valor)
printer.print DATE() (a data atual)

printer.currentx = 2100 (COLUNA onde será impresso o valor)
printer.print DATE() (a data atual)



Agora você precisa montar isso na aplicação. Uma questão muito importante é saber QUANTAS ETIQUETAS POR LINHA. Quanto a distância, depois [Ô]nóis[Ô] ajusta.
CCRISANEVB 26/06/2010 11:00:39
#345857
tentei aki e fiz assim + ou - e nd :

Dim i As Integer

For i = 1 To qtde
Printer.CurrentY = 500
Printer.CurrentX = 100

Printer.Print date()
Printer.Print TxtLote.Text
Printer.EndDoc
Next i

tem somente uma etiqueta por linha de 8.5 cm de altura por 10 cm de largura e cada uma é separada por 0.5 cm
MSMJUDAS 26/06/2010 11:12:45
#345858
Dim i As Integer
Dim Linhas As Integer
Linha = 0
Printer.ScaleMode = vbMillimeters
For i = 1 To qtde
Printer.CurrentY = 10 + Linha
Printer.CurrentX = 10
Printer.Print date() & [Ô] - [Ô] & TxtLote.Text
Linha = Linha + 5
Next i
Printer.EndDoc

é mais ou menos assim.

Quais os dados que vc precisa imprimir na etiqueta?
CCRISANEVB 26/06/2010 11:31:27
#345859
Tenho q imprimir somente data atual e o nr do lote informado na tela, juntamente com a qtde de etiquetas que serão impressas.



data atual:
nr lote:
EDERMIR 27/06/2010 20:06:31
#345928 
Dim i As Integer
    
    For i = 1 To qtde
        Printer.CurrentY = 500 
        Printer.CurrentX = 100 

        Printer.Print  [Ô]Data Atual: [Ô] & date()
        Printer.Print [Ô]Lote: [Ô] & trim(TxtLote.Text)
        Printer.EndDoc
    Next i
CCRISANEVB 29/06/2010 22:13:43
#346107
Edermir agradeço a ajuda, mas tenho q imprimir a uns 2 cm da borda da esquerda e 6 cm de altura alguém saberia como posso favor.Não estou conseguindo.
EPISCOPAL 29/06/2010 23:33:45
#346114
tem um exemplo aqui de um editor de texto ...... em anexo ........... estud o codigo ai .... é bem simples
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar