PEGAR O MAQUINA/IMPRESSORA NO BD

WEBIER 15/02/2011 16:10:07
#365527
seguinte, tenho um sistema e para cada tipo de impressão eu envio para uma impressora diferente

se eu for imprimir uma tabela, eu envio para uma matricial chamada IMPRESSORA1, se for um cupom eu envio para a impressora termica chamada TERMICA1 e assim sucessivamente...

Então no banco de dados eu deixo armazenado o nome da maquina onde a impressora tá ligada e o nome do compartilhamento, exemplo:

\\BALCAO01\TERMICA fica ligado a impressora termica
\\SERVIDOR\IMPRESSORA1 fica ligado a impressora matricial

então na hora de imprimir eu gostaria de pegar o caminho da impressora.... entao inves de fazer assim:

Open [Ô]\\BALCAO01\TERMICA[Ô] For Output As #1


eu fiz assim:

[ô]Configurar a impressora para impressão do cupom
Call Abrir_BancodeDados
SQL_Conf = [Ô]SELECT * FROM CONFIGURACAO WHERE (CODIGO = 1)[Ô]
Set RS_Conf = BD.OpenRecordset(SQL_Conf, dbOpenSnapshot)

Dim var_Maq As String
Dim var_Comp As String
Dim var_Impressora As String

    If Not IsNull(RS_Conf!IMP1_MAQ_AV) Then var_Maq = RS_Conf!IMP1_MAQ_AV
    If Not IsNull(RS_Conf!IMP1_COMPART_AV) Then var_Comp = RS_Conf!IMP1_COMPART_AV

var_Impressora = [Ô]\\[Ô] & var_Maq & [Ô]\[Ô] & var_Comp

Open [Ô]var_Impressora[Ô] For Output As #1

    With Printer
        .ScaleMode = vbPixels
[ô]aqui para baixo é meu cupom (tudo funcionando)


quando coloco para imprimir ele envia para a impressora padrão do meu computador e não para a impressora que definir....

quando eu coloco o mouse emcima da variavel var_Impressora ele me mostra o caminho correto da impressora: \BALCAO01\TERMICA

onde estou errando?
WEBIER 15/02/2011 17:44:33
#365533
ela é uma impressora de rede...

está instalada no pc (como impressora de rede)
Tópico encerrado , respostas não são mais permitidas
Voltar