IMPRIMIR VARIAS IMAGENS EM ETIQUETAS

DJCOL 27/04/2013 16:19:05
#422610
Boa tarde pessoal! Sou novo por aqui, gostaria imensamente da ajuda de vocês que fazem acontecer!

Tenho imagens salvas em uma pasta \Ean e no bd só tenho o caminho das imagens. Preciso imprimir essas imagens em uma etiqueta, são imagens com nomes diferentes com extenção .bmp, mas não sei como fazer! Faz 2 semanas que estou procurando algo mas não encontrei nada, e para ajudar não sou especialista em vb.
já tentei com o CR 8, já tentei com o printer e não consegui nada. tentei essa citação ---> Private Sub Command001_Click()
For i = 1 To 10
Printer.CurrentX = Printer.CurrentX + 400
Printer.CurrentY = Printer.CurrentY + 1250
Printer.PaintPicture Picture001, Printer.CurrentX, Printer.CurrentY
Next i
Printer.EndDoc
End Sub

Private Sub Form_Load()
Picture001.Picture = LoadPicture([Ô]E:\Impressao\bar code.bmp[Ô])
Printer.CurrentX = 0
Printer.CurrentY = 0
End Sub

que encontrei aqui no forum, mas tb não consegui!

Será que vocês poderiam me dar um norte para esse problema?
Serei muito grato pela ajuda, visto que estou encontrando muito coisa aqui no site! é muito fera!
obrigado a todos!
Tenham um ótimo final de semana!
PROFESSOR 03/05/2013 18:15:53
#422920
Basicamente é a mesma coisa. A diferença é que você vai carregar o caminho desde a base de dados.

Algo como:

Private Sub Command001_Click()
   Dim pct As StdPicture
   Dim rs As New ADODB.Recordset
   rs.Open [Ô]SELECT [seu campo de caminho] FROM [sua tabela][Ô], suaConexão
   rs.MoveFirst
   While Not (rs.EOF = True)
        caminho = rs([Ô][seu campo de caminho][Ô]).Value
        If (Len(Trim(Dir$(caminho))) > 0) Then
           Set pct = LoadPicture(caminho)
           Printer.CurrentX = Printer.CurrentX + 400
           Printer.CurrentY = Printer.CurrentY + 1250
           Printer.PaintPicture pct, Printer.CurrentX, Printer.CurrentY
        End If
        rs.MoveNext
   Wend
   Printer.EndDoc
End Sub


Lembre-se de que pode ser necessário validar se o campo não está nulo ou em branco, de que a imagem esteja mesmo gravada em disco e o caminho esteja correto, que o formato da imagem possa de fato ser carregada via LoadPicture etc.
Faça seu login para responder
Voltar