POSICIONAR E IMPRIMIR IMAGEM COM O PRINTER

WEBIER 01/11/2010 10:38:55
#356386
para eu encontar a imagem que eu quero e exibir num objeto image eu faço assim:
Call ABRIR_BD_SEM_DATA1
SQL_Empresa = [Ô]SELECT TOP 1 * FROM EMPRESA ORDER BY FANTASIA[Ô]
Set RS_Empresa = BD.OpenRecordset(SQL_Empresa)

If Not IsNull(RS_Empresa!Caminho) Then imgLogo.Picture = LoadPicture(RS_Empresa!Caminho)


só que agora eu quero imprimir essa mesma imagem no meu cupom de venda... quero posiciona-la no topo e centralizada.

olha o código do cabeçalho de meu cupom de venda
    With Printer
        .ScaleMode = vbCentimeters
        .FontName = [Ô]courier new[Ô]
        
        Fonte 8, False, False
        Printer.Print String(40, [Ô]-[Ô])
        Fonte 10, True, False
        Printer.Print Tab((35 - Len(RS_Empresa!FANTASIA)) / 2); RS_Empresa!FANTASIA   [ô]Esse /2 é p/ centralizar
        Fonte 10, False, False
        Printer.Print Tab((35 - Len(RS_Empresa!RAZAO)) / 2); RS_Empresa!RAZAO
        Fonte 8, False, False
        Printer.Print RS_Empresa!ENDERECO & [Ô], [Ô] & RS_Empresa!cidade & [Ô]-[Ô] & RS_Empresa!estado
        Printer.Print [Ô]FONE: [Ô]; RS_Empresa!TELEFONE
        Fonte 8, False, False
        Printer.Print [Ô]CNPJ:[Ô]; RS_Empresa!CNPJ & [Ô]  IE:[Ô] & RS_Empresa!IE
        Printer.Print [Ô] [Ô]


como eu faria para colocar ela antes de RS_Empresa!FANTASIA e centralizada ?
TECLA 02/11/2010 17:47:03
#356471 Resposta escolhida
Isso deve ajudá-lo.

Exemplo:
Printer.PaintPicture Image1.Picture, 0, 0, 2700, 2500 [ô]posiciona a foto



Fonte: Imprimindo no Visual Basic - o objeto Printer
WEBIER 03/11/2010 10:23:17
#356524
Certo, eu fiz assim:

    With Printer
        .ScaleMode = vbPixels
        
        .PaintPicture Image1.Picture, 0, 0, 186, 70
        
        .ScaleMode = vbCentimeters
        .FontName = [Ô]courier new[Ô]
        [ô].PrintQuality = vbPRPQHigh
        
        Fonte 8, False, False
        Printer.Print String(40, [Ô]-[Ô])
        Fonte 10, True, False
        Printer.Print Tab((35 - Len(RS_Empresa!FANTASIA)) / 2); RS_Empresa!FANTASIA   [ô]Esse /2 é p/ centralizar
        Fonte 10, False, False


a logomarca foi impressa.... EBA!

o problema é que ela ficou do lado esquerdo e emcima da primeira linha do cupom.... essa que tem RS_Empresa!FANTASIA
como eu faço para colocar a logomarca separada do texto(no topo) e centralizada no meio do cupom?
Tópico encerrado , respostas não são mais permitidas
Voltar