IMPRIMIR IMAGEM COM O PRINTER

ALVAROVB2009 10/11/2009 08:55:44
#327290
Galera bom dia
Estou usando o PRINTER para montar meu relatório e tem uma imagem que tenho que colocar, estou colocando o código abaixo:
- Printer.PaintPicture Picture4.Picture, 0, 0, Picture4.Width, Picture4.Height
Porém quando mando imprimir, a imagem não sai, estou imprimindo em uma impressora virtual que converte para PDF, será que é esse o problema?

Já tentei utilizar o objeto Image e tb não consegui nada

Será que alguém já passou por isso e pode me dar uma força nesse probleminha?
Abraço a todos
MARCELO.TREZE 10/11/2009 09:29:29
#327291
o ideal seria postar o codigo que esta usando para fazer sua impressão

talvez o fato de estar usando uma impressora virtual seja o motivo, mas que eseja exatamente isso

qual o código de impressão para podermos analizar.
ALVAROVB2009 10/11/2009 09:39:43
#327293
Marcelo bom dia e obrigado pelo retorno, segue o código

Printer.ScaleMode = 4
Printer.FontSize = 8
Printer.FontName = [Ô]Arial[Ô]
Printer.PaintPicture Picture4.Picture, 0, 0, Picture4.Width, Picture4.Height
Printer.Print Tab(60); [Ô]ALCANCE TRANSPORTES RODOVIÁRIOS ESPECIALIZADOS LTDA[Ô]
Printer.Print Tab(60); [Ô]Matriz: Rua Ushikichi Kamiya, 50-B, Vila Airosa, KM 83 - Rod Fernão Dias[Ô]
Printer.Print Tab(60); [Ô]São Paulo - SP - CEP 02323-000 - Tel/Fax: (11) 2995-7237 - Sede Própria[Ô]
Printer.Print Tab(60); [Ô]www.advanceexpress.net - advance@advanceexpress.net[Ô]
Printer.Print
Printer.Print
Printer.Print Tab(20); [Ô]DESPESAS DE VIAGENS E REPRESENTAÇÕES[Ô]
Printer.Print
Printer.Print
Printer.Print Tab(0); [Ô]Prestação de Contas Nº [Ô] & txtCodigo.Text;
Printer.Print Tab(70); [Ô]Emissão - [Ô] & CDate(TxtData.Text)
Printer.Print
Printer.Print
Printer.Print Tab(0); [Ô]Cliente[Ô]
Printer.Print Tab(0); RsCliente(4)
Printer.Print
Printer.Print Tab(0); [Ô]Funcionário: [Ô];
Printer.Print Tab(15); CboMotorista.Text;
Printer.Print Tab(70); [Ô]Carro Placa:[Ô] & CboVeiculo.Text
Printer.Print
Printer.Print Tab(0); [Ô]Ajudante(s) [Ô];
Printer.Print Tab(15); TxtAjudante.Text
Printer.Print
Printer.Print Tab(0); [Ô]CTRC/Ordem de Coleta[Ô];
Printer.Print Tab(20); [Ô]Verificar OC[Ô]
Printer.Print Tab(0); [Ô]Percurso[Ô]
Printer.Print Tab(0); TxtPercurso1.Text & [Ô] a [Ô] & TxtPercurso2.Text
If Trim(TxtPercurso3.Text) <> [Ô][Ô] Then Printer.Print Tab(0); TxtPercurso3.Text & [Ô] a [Ô] & TxtPercurso4.Text
If Trim(TxtPercurso5.Text) <> [Ô][Ô] Then Printer.Print Tab(0); TxtPercurso5.Text & [Ô] a [Ô] & TxtPercurso6.Text
If Trim(TxtPercurso7.Text) <> [Ô][Ô] Then Printer.Print Tab(0); TxtPercurso7.Text & [Ô] a [Ô] & TxtPercurso8.Text
Printer.Print
Printer.Print Tab(0); [Ô]Data saída[Ô];
Printer.Print Tab(12); CDate(TxtHoraSaida.Text);
Printer.Print Tab(25); [Ô]Hora saída[Ô];
Printer.Print Tab(38); TxtHoraSaida.Text;
Printer.Print Tab(50); [Ô]Km Inicial[Ô];
Printer.Print Tab(63); TxtKmInicial.Text
Printer.Print Tab(0); [Ô]Data chegada[Ô];
Printer.Print Tab(15); CDate(TxtHoraSaida.Text);
Printer.Print Tab(25); [Ô]Hora chegada[Ô];
Printer.Print Tab(40); TxtHoraSaida.Text;
Printer.Print Tab(52); [Ô]Km Final[Ô];
Printer.Print Tab(61); TxtKmFinal.Text
Printer.Print Tab(0); [Ô]Total de dia(s)/Hora(s)[Ô];
Printer.Print Tab(25); LblTotalDias.Caption;
Printer.Print Tab(50); [Ô]Km Percorridos[Ô];
Printer.Print Tab(65); LblTotalKm.Caption
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(0); [Ô]Adiantamento [Ô];
Dim Credito As Double
Dim Debito As Double
Credito = 0
Debito = 0
Dim I As Integer
For I = 1 To LstLancamento.ListItems.Count
If LstLancamento.ListItems(I).ListSubItems(2).Text = [Ô]Vale Frete[Ô] Then
Printer.Print Tab(20); Format(LstLancamento.ListItems(I).ListSubItems(5).Text, [Ô]###,###,##0.00[Ô])
End If
If LstLancamento.ListItems(I).ListSubItems(3).Text = [Ô]C[Ô] Then
Credito = Credito + CCur(LstLancamento.ListItems(I).ListSubItems(5).Text)
Else
Debito = Debito + CCur(LstLancamento.ListItems(I).ListSubItems(5).Text)
End If
Next
Printer.Print
Printer.Print Tab(50); [Ô]LANÇAMENTOS[Ô]
Printer.Print
Printer.Print Tab(20); Format(Credito, [Ô]###,###,##0.00[Ô])
Printer.Print Tab(70); Format(Debito * -1, [Ô]###,###,##0.00[Ô])
Printer.Print
Printer.Print Tab(0); TxtObsLancamento.Text
Printer.Print
Printer.Print
Printer.Print Tab(10); [Ô]Devolver[Ô];
If Debito >= Credito Then
Printer.Print Tab(20); Format(Debito - Credito, [Ô]###,###,##0.00[Ô])
Else
Printer.Print Tab(20); [Ô]0,00[Ô]
End If
Printer.Print Tab(0); [Ô]Saldo[Ô]
Printer.Print Tab(10); [Ô]Receber[Ô];
If Credito >= Debito Then
Printer.Print Tab(20); Format(Credito + Debito, [Ô]###,###,##0.00[Ô])
Else
Printer.Print Tab(20); [Ô]0,00[Ô]
End If

Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(0); String(45, [Ô]_[Ô]);
Printer.Print Tab(50); String(45, [Ô]_[Ô])
Printer.Print Tab(20); [Ô]Conferido por[Ô]
Printer.Print Tab(70); [Ô]Visto[Ô]
Printer.EndDoc

Eu já tentei colocar o código da imagem logo no início antes de definir a fonte, o modelo de caracter e também não exibiu nada
MARCELO.TREZE 10/11/2009 10:10:00
#327304
Faça um teste tente imprimir apenas a imagem.

tente jogar a posição x e y

    Printer.ScaleMode = 4
    Printer.FontSize = 8
    Printer.FontName = [Ô]Arial[Ô]
    Printer.CurrentX = 100
    Printer.CurrentY = 100
    Printer.PaintPicture Picture4.Picture, 0, 0, Picture4.Width, Picture4.Height
    Printer.EndDoc
LLAIA 10/11/2009 10:22:44
#327306
cara, impressoras virtuais costumam aprontar pra gente quando usamos Printer.
ALVAROVB2009 10/11/2009 10:44:35
#327310
Marcelo não imprimiu nada

Leandro você já passou por isso tb? Vc lembra como conseguiu resolver essa tranqueira
LLAIA 10/11/2009 11:15:49
#327313
cara, um dos problemas eras a paginação. Uma coisa legal pra driblar isso, é usar o software de impressoras que acompanham o driver e possuem pré-visualização como a da famosa Epson Stylus color C42.

Eu usva muito, e as fotos saíam direitinho. Derepente vc tem aí.
ALVAROVB2009 10/11/2009 13:33:27
#327331
Leandro eu não tenho nada referente a isso, como que será q posso resolver essa meleca?
MARCELO.TREZE 10/11/2009 14:10:07
#327335
Alvaro, como vc está arregandoa imagem no picture box?
ALVAROVB2009 10/11/2009 14:37:02
#327338
Marcelo eu estou carregando a imagem direto no picture ao iniciar o form
EDERMIR 10/11/2009 14:46:26
#327340 Resposta escolhida
Carrego a imagem assim:
        mystream.Type = adTypeBinary
        mystream.Open
        mystream.Write SQL_RS!TIMBRE
        mystream.SaveToFile App.Path & [Ô]\Imagem.bmp[Ô], adSaveCreateOverWrite
        mystream.Close
        Set mystream = Nothing
        Dim objpicture As Picture
        Set objpicture = LoadPicture(App.Path & [Ô]\Imagem.bmp[Ô])


E utilizo desta forma para imprimir e funciona:
                objprint.PaintPicture objpicture, Wcolunas, objprint.CurrentY, Wtam, Wtam2
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar