IMPRIMIR IMAGENS BMP

MAYKONMIC 15/04/2010 15:40:54
#339522
gostaria de uma ajuda de como imprimir várias etiquetas de código de barras em uma unica folha a4 obrigado vou deixar um exemplo do tamanho medio que irei usar.
Preciso Pegar uma pasta cheia desses arquivos. Imprimi-las juntas com de 15 à 60 imagens.
MICROSCHEME 15/04/2010 16:09:38
#339523
Resposta escolhida
Private Sub Command001_Click()
Printer.CurrentX = 100
Printer.CurrentY = 100
Printer.PaintPicture Picture001, CurrentX, CurrentY
Printer.EndDoc
End Sub

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

Cria um loop pra quantidade que precisa, alterando as linhas printer.currentx e printer.currenty

blz . . .

MAYKONMIC 15/04/2010 16:15:00
#339524
mas eu queria que as imagens fossem impressas diverssas em unica folha....
MICROSCHEME 15/04/2010 16:25:12
#339525

Cara é preciso mais informações

Tu precisa da mesma imagem várias vezes na mesma folha ?

ou varias imagens diferentes na mesma folha ?

. . .

MAYKONMIC 15/04/2010 16:41:15
#339528
Varias diferentes só que com o mesmo tamanho
MICROSCHEME 15/04/2010 16:45:07
#339529
Se for a mesma imagem varias vezes na mesma folha

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

é só um exemplo, tu precisa manipular as coordenadas printer.currentx e printer.currenty pra imprimir
do jeito que tu quizer.

. . .

Se for várias imagens diferentes, é preciso manipular a linha picture001.picture = loadpicture([Ô]...[Ô])
pra carregar as imagens que você precisa, cada loadpicture que tu usar, vai carregar uma imagem diferente
é só dar o caminho e nome da imagem que vai precisar.

blz . . .

MAYKONMIC 15/04/2010 17:00:02
#339532
só que não posse perder o tamanho que a imagem está ela tem de ficar no mesmo tamanho.
MICROSCHEME 15/04/2010 17:13:28
#339533

Deixa a propriedade autosize da picture como true

Só precisa tomar cuidado pra imagens de tamanhos diferentes, o posicionamento das coordenadas na impressão
também devem ser diferentes.

Se todas tiverem o mesmo tamanho autosize pode ser falso, mas se cada imagem tem um tamanho diferente
vai ser meio dificil poder trabalhar com elas. o ideal é que todas tenham o mesmo tamanho

MAYKONMIC 15/04/2010 17:18:47
#339535
Exatamente tods têm o mesmo tamanho. Só queria saber os limites da impressão em coordenadas pra mim não ultrapassar os limites da folha e fazer cagada...
MICROSCHEME 15/04/2010 18:23:09
#339540
digamos que a margem direita e abaixo sejam de 1300 pixels

para a direita

If Printer.CurrentX >= Printer.ScaleWidth - 1300 Then [ô] aqui é só mudar de 1300 para o valor que quizer
Printer.currentx = 0
End If

no rodapé

If Printer.CurrentY >= Printer.ScaleHeight - 1300 Then [ô] aqui é só mudar de 1300 para o valor que quizer
Printer.NewPage
printer.currenty = 0
End If
MAYKONMIC 16/04/2010 10:52:38
#339583
Qual é o valor minimo para as bordas no objeto printer. ou não existe depende da impressora?
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas