IMPRIMIR IMAGEM COM PATH NO BD

WEBIER 22/11/2010 16:18:27
#357980
quero imprimi uma imagem (logomarca) em um cupom de venda, usando uma impressora termica.

atualmente faço assim:
-coloco um objeto image no form com uma imagem nela

aqui tá o inicio do código que uso para imprimir ela
Open [Ô]\\BALCAO01    ermica[Ô] For Output As #1

    With Printer
        .ScaleMode = vbPixels
        
        .PaintPicture imLogoCupom.Picture, 100, 0, 372, 150
        
        .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



entao a linha onde indico qual é a figura para ser impressa é essa ai:
[txt-color=#e80000].PaintPicture imLogoCupom.Picture, 100, 0, 372, 150[/txt-color]

eu queria ao inves de ter q colocar um objeto imagem no form, exibir uma imagem nele e imprimir ele,

eu gostaria de pegar a imagem ao qual tah armazena o caminho no meu banco de dados.
exemplo:
    Call ABRIR_BD_SEM_DATA1
    SQL_Conf = [Ô]SELECT * FROM CONFIGURACAO WHERE (CODIGO = 1)[Ô]
    Set RS_Conf = BD.OpenRecordset(SQL_Conf)
    
    If Not IsNull(RS_Conf!LOGO_CUPOM) Then imLogoCupom.Picture = LoadPicture(RS_Conf!LOGO_CUPOM)


entao como eu faço fazer isso?
MARCELO.TREZE 22/11/2010 16:31:21
#357981 Resposta escolhida
assim

Dim CaminhoImg As String
Call ABRIR_BD_SEM_DATA1
    SQL_Conf = [Ô]SELECT * FROM CONFIGURACAO WHERE (CODIGO = 1)[Ô]
    Set RS_Conf = BD.OpenRecordset(SQL_Conf)
    
    If Not IsNull(RS_Conf!LOGO_CUPOM) Then CaminhoImg = RS_Conf!LOGO_CUPOM

 Printer.PaintPicture LoadPicture(CaminhoImg), 100, 0, 372, 150


lógico coloque as coisas nos lugares certos e pronto
Tópico encerrado , respostas não são mais permitidas
Voltar