IMPRIMIR IMAGENS BMP
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.
Preciso Pegar uma pasta cheia desses arquivos. Imprimi-las juntas com de 15 Ã 60 imagens.
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 . . .
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 . . .
mas eu queria que as imagens fossem impressas diverssas em unica folha....
Cara é preciso mais informações
Tu precisa da mesma imagem várias vezes na mesma folha ?
ou varias imagens diferentes na mesma folha ?
. . .
Varias diferentes só que com o mesmo tamanho
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 . . .
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 . . .
só que não posse perder o tamanho que a imagem está ela tem de ficar no mesmo tamanho.
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
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...
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
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
Qual é o valor minimo para as bordas no objeto printer. ou não existe depende da impressora?
Tópico encerrado , respostas não são mais permitidas