Picture Box

[Fireboard]

Preciso fazer o seguinte:

Preciso imprimir etiquetas contendo pictures onde a quantidade de colunas será informada pelo usuário.

Como faço para que a picture alinhe uma figura do lado da outra sem sobrescrever uma imagem em cima da outra?

Usei estes comandos para dimensionar o tamanho da picture:

pic.ScaleHeight = alt

pic.ScaleWidth = larg

pic.Picture = ean.BarPicture ' esta linha transfere o objeto ean para o objeto picture

Vou imprimir esta picture depois. Há alguma forma mais fácil de fazer isso ou devo usar a picture mesmo?

Obrigado

[Decio]

Quando você for posicionar você tem que levar em condição o tamanho do picture box também. Ou seja posiciona o primeiro, posiciona o segundo a partir da posição (left) que iniciou o primeiro picture box + o tamanho do picture box (Width) + mais o espaço entre eles , e assim sucessivamente.

[Fireboard]

Não estou conseguindo entrar num acordo. Por favor, no que estou errando?

Vou imprimir etiquetas com 5 colunas e o tamanho do papel A4.

A rotina redimensiona o objeto picture para o tamanho correto, mas não consigo inserir o objeto dentro da picture um do lado do outro (para eu imprimir em colunas).

Private Sub Command1_Click()

Dim alt, larg As Integer ' alt = altura e larg = largura do objeto

alt = ean.Height

larg = ean.Width

Do While x < 5

pic.Width = larg

pic.Height = alt

pic.ScaleHeight = alt

pic.ScaleWidth = larg

pic.Picture = ean.BarPicture

' <-- imprime um em cima do outro

pic.PaintPicture ean.BarPicture, alt, larg, ScaleHeight, ScaleWidth

' <-- deste jeito também não deu certo

alt = alt + ean.Height

larg = larg + ean.Width

x = x + 1

Loop

End Sub

Obrigado

[Decio]

É cara, eu não sou muito bom com o objeto Printer (entre muitas outras coisas).

Veja se este tutorial te ajuda.

http://www.macoratti.net/printer.htm#prn_form

O mais fácil é dar um PrintForm, mas não deve resolver o seu problema.