MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Sex 10 Out - 21:02

    boa tarde pessoal

    estou colocando uma duvida que esta me dando muito trabalho.

    estou com um bd tentanto imprmir negrito em uma impressora nao fiscal definida como generic.

    mas nao da certo de forma alguma.

    ai copiei alguns exemplos do forum que imprime atraves de "print" e testei ontem, mas nao obtive retorno. e preciso muito imprimir em negrito e aumentar o tamanho da fonte do cupom.

    estou disponibilzando o bd com o exemplo que montei atraves do comando print, apenas imprimindo uma frase mas com comandos para deixar em negrito, condensado etc... mas nao funcionou

    detalhe a impressora esta na porta com

    obrigado


    Última edição por infformax em Sab 11 Out - 20:13, editado 1 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3942
    Registrado : 29/06/2012

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  Noobezinho Sab 11 Out - 1:59

    Hilton

    Experimente esses códigos para enviar os dados para a porta com

    Módulo (basPrintPort)

    Código:


    Type aht_tagDeviceRec
    drDeviceName As String
    drDriverName As String
    drPort As String
    End Type



    Function PrintPort()
    On Error GoTo Err_imprimir_Click


    Dim dr As aht_tagDeviceRec

    If ahtGetDefaultPrinter(dr) Then
    PrintPort = dr.drPort
    End If

    Exit_Imprimir_Click:
    Exit Function

    Err_imprimir_Click:
    If Err.Number = 76 Or Err.Number = 53 Then
    MsgBox "Atenção!@Impressora desligada ou desconectada!@", vbExclamation
    Else
    MsgBox Err.Number & " - " & Err.Description, vbCritical
    End If
    Resume Exit_Imprimir_Click

    End Function

    Function ahtGetDefaultPrinter(dr As aht_tagDeviceRec) As Boolean

    Dim strBuffer As String

    strBuffer = ahtGetINIString("Windows", "Device")
    If Len(strBuffer) > 0 Then
    With dr
    .drDeviceName = ahtGetToken(strBuffer, ",", 1)
    .drDriverName = ahtGetToken(strBuffer, ",", 2)
    .drPort = ahtGetToken(strBuffer, ",", 3)
    End With
    ahtGetDefaultPrinter = True
    Else
    ahtGetDefaultPrinter = False
    End If
    End Function


    Módulo (basINIFile)

    Código:

    Option Compare Database
    Option Explicit

    Const MAX_SIZE = 255
    Const MAX_SECTION = 2048

    Declare Function aht_apiGetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileInt" (ByVal strAppName As String, ByVal strKeyName As String, ByVal intDefault As Integer, ByVal strFileName As String) As Integer
    Declare Function aht_apiGetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strDefault As String, ByVal strReturned As String, ByVal lngSize As Long, ByVal strFileName As String) As Long
    Declare Function aht_apiGetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strDefault As String, ByVal strReturned As String, ByVal lngSize As Long) As Long
    Declare Function aht_apiGetProfileInt Lib "kernel32" Alias "GetProfileInt" (ByVal strAppName As String, ByVal strKeyName As String, ByVal intDefault As Integer) As Integer
    Declare Function aht_apiGetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
    Declare Function aht_apiGetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFilename As String) As Long

    Declare Function aht_apiWritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strValue As String, ByVal strFileName As String) As Integer
    Declare Function aht_apiWriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strValue As String) As Integer

    Function ahtGetINIInt(ByVal strGroup As String, ByVal strItem As String) As Variant

    ahtGetINIInt = aht_apiGetProfileInt(strGroup, strItem, -1)
    End Function

    Function ahtGetINIString(ByVal strGroup As String, ByVal strItem As String) As Variant

    Dim intChars As Integer
    Dim strBuffer As String

    strBuffer = String(MAX_SIZE, 0)
    intChars = aht_apiGetProfileString(strGroup, strItem, "", strBuffer, MAX_SIZE)
    ahtGetINIString = Left(strBuffer, intChars)
    End Function

    Function ahtGetPrivateINIInt(ByVal strGroup As String, ByVal strItem As String, ByVal strFile As String) As Variant

    ahtGetPrivateINIInt = aht_apiGetPrivateProfileInt(strGroup, strItem, -1, strFile)
    End Function

    Function ahtGetPrivateIniString(ByVal strGroup As String, ByVal strItem As String, ByVal strFile As String) As Variant

    Dim intChars As Integer
    Dim strBuffer As String

    strBuffer = String(MAX_SIZE, 0)
    intChars = aht_apiGetPrivateProfileString(strGroup, strItem, "", strBuffer, MAX_SIZE, strFile)
    ahtGetPrivateIniString = Left(strBuffer, intChars)
    End Function

    Function ahtGetProfileSection(ByVal strGroup As String) As Variant

    Dim strBuffer As String
    Dim intCount As Integer

    strBuffer = Space(MAX_SECTION)
    intCount = aht_apiGetProfileSection(strGroup, strBuffer, MAX_SECTION)
    ahtGetProfileSection = Left(strBuffer, intCount)
    End Function

    Function ahtGetPrivateProfileSection(ByVal strGroup As String, ByVal strFile As String) As Variant

    Dim strBuffer As String
    Dim intCount As Integer

    strBuffer = Space(MAX_SECTION)
    intCount = aht_apiGetPrivateProfileSection(strGroup, strBuffer, MAX_SECTION, strFile)
    ahtGetPrivateProfileSection = Left(strBuffer, intCount)
    End Function


    Módulo (basToken)

    Código:


    Function ahtGetToken(ByVal strValue As String, ByVal strDelimiter As String, ByVal intPiece As Integer) As Variant

    Dim intPos As Integer
    Dim intLastPos As Integer
    Dim intNewPos As Integer

    On Error GoTo ahtGetTokenExit

    strDelimiter = Left(strDelimiter, 1)


    If (InStr(strValue, strDelimiter) = 0) Or (intPiece <= 0) Then
    ahtGetToken = strValue
    Else
    intPos = 0
    intLastPos = 0
    Do While intPiece > 0
    intLastPos = intPos
    intNewPos = InStr(intPos + 1, strValue, strDelimiter)
    If intNewPos > 0 Then
    intPos = intNewPos
    intPiece = intPiece - 1
    Else
    ' Catch the last piece, where there's no
    ' trailing token.
    intPos = Len(strValue) + 1
    Exit Do
    End If
    Loop
    If intPiece > 1 Then
    ahtGetToken = Null
    Else
    ahtGetToken = Mid$(strValue, intLastPos + 1, intPos - intLastPos - 1)
    End If
    End If

    ahtGetTokenExit:
    Exit Function

    ahtGetTokenErr:
    MsgBox "Error in ahtGetToken: " & Error & " (" & Err & ")"
    Resume ahtGetTokenExit
    End Function


    Use assim:
    ' perceba que é um botão de comando
    Private Sub cmdTesteImp_Click()

    Dim Impressão, ret As Double

    NomeArquivo = FreeFile
    ' aqui vai gravar o relatorio em um arquivo texto
    Open "C:\Pasta\Meurelatorio.txt" For Output As #NomeArquivo
     
    Print #Impressão, Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " TESTE DE IMPRESSÃO" & Chr$(27) & Chr$(70) & Chr$(20)
    Print #Impressão, Chr$(27) & Chr$(15) & " R.Joao Pio Duarte Silva, 1124"
    Print #Impressão, " Corrego Grande - Florianopolis"
    Print #Impressão, " CNPJ: xxx.xxx.xxx/0001-35"

    Close #Impressão

    ' impressão do relatório

    ret = Shell("c:\Pasta\MeuRelatorio.bat", vbMinimizedFocus)

    End Sub



    Crie um arquivo batch (.bat)  com o nome do teu relatório, por exemplo: MeuRelatorio.bat
    dentro dele coloque:
    Print  c:\Pasta\MeuRelatorio.txt

    ====================

    Eu usei essa código a muito tempo  e agora não tenho impressora matricial para testar

    Faça os testes e retorne, ok?


    Nb


    Última edição por Noobezinho em Qua 15 Out - 23:40, editado 1 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 17/09/2010

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  Pablo Neruda Sab 11 Out - 18:17

    Boas!!!

    Verifique se a impressora é ligada diretamente a porta paralela "Lpt" ou se usa a USB, se você utilizar a USB terá que baixar o DOSprint para emular a porta LPT...

    Eu uso assim...

    Open "LPT1:" For Output As #1

    Print #1, Chr$(27) ; Chr$(15) ; Chr$(27) ; Chr$(69); " TESTE DE IMPRESSAO" ; Chr$(27) ; Chr$(70) ; Chr$(20)
    Print #1, Chr$(27) ; Chr$(15) ; " R.Joao Pio Duarte Silva, 1124"
    Print #1, "Corrego Grande - Florianopolis"
    Print #1, "CNPJ: xxx.xxx.xxx/0001-35"

    Close #1

    Lembrando que é bom que efetue o tratamento dos caracteres com acento que dependendo da tabela da impressora não são reconhecidos...

    Para os códigos ASC para a manipulação dos caracteres basta você pesquisar por manual da impressora epson lx300 que você encontra no google...


    .................................................................................
    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Elohim Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Sab 11 Out - 19:57

    boa tarde

    a impressora esta na "com1"
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Sab 11 Out - 20:16

    desculpe, achei que tinha colocado o exemplo em anexo, mas agora coloquei de como fiz e nao deu certo.

    se puderem ajudar

    obrigado
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Dom 12 Out - 19:04

    up em aumentar o tamanho da fonte
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 17/09/2010

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  Pablo Neruda Seg 13 Out - 12:44

    Vamos lá por partes amigão...

    1. Você já consegue imprimir alguma coisa?
    2. Você experimentou substituindo o "&" por ";" entre os Chr$ (experimente também tirar o $ do Chr em algumas versões o "$" foi abolido do comando);
    2. Qual marca/modelo da impressora?

    ...


    .................................................................................
    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Elohim Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Seg 13 Out - 14:58

    bom dia

    qto a marca da impressora, ja é usada e nao tem marca nenhuma, e esta definida como generic / only e esta na com1

    sabado consegui atraves dos comandos abaixo imprimir em negrito, mas nestes comandos abaixo o comando para cancelar o negrito nao funcionou.

    o ideal seria eu conseguir cancelar o negrito, mas caso eu nao consiga vou imprimir en negrito mesmo.

    so que agora preciso ver se consigo "cancelar" o negrito e principalmente agora "aumentar" o tamanho da fonte.

    segue o comando

    Open "COM1:" For Output As #1

    Print #1, 'salta uma linha
    Print #1, 'salta uma linha
    Print #1, 'salta uma linha


    'negrito
    Print #1, Chr(27) & "E"
    Print #1, "NADA DA CERTO EM NEGRITO"
    'negrito
    Print #1, Chr(27) & "F"
    Print #1, "NADA DA CERTO SEM NEGRITO"

    Close #1

    obrigado

    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 17/09/2010

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  Pablo Neruda Seg 13 Out - 15:19

    Segue os comandoS que utilizo em uma Epson Lx 300


    Habilita Negrito

    Print #1, Chr(18); Chr(27); Chr(69)

    Desabilita Negrito

    Print #1, Chr(18); Chr(27); Chr(70)

    ---------------

    Habilita Largura Dupla

    Print #1, Chr(27); Chr(14)

    Desabilita Largura Dupla

    Print #, Chr(27); Chr(20)

    ---------------

    Habilita Condensado

    Print #1, Chr(27); Chr(15)

    Desabilita Condensado

    Print #1, Chr(18) 'SEM O CHR(27) MESMO


    Sds...





    .................................................................................
    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Elohim Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Seg 13 Out - 16:01

    opa

    ja usei os comandos quase parecidos com o que vc passou e nao deu certo

    segue abaixo

    'condensado
    'Print #1, Chr(27) & Chr(15) + " NADA DA CERTO"
    'expandido
    'Print #1, Chr(27) & Chr(14) + " NADA DA CERTO"
    'negrito
    'Print #1, Chr(27) & Chr(69) + " NADA DA CERTO"
    'italico
    'Print #1, Chr(27) & Chr(52) + " NADA DA CERTO"

    nenhum deles funcionaram.


    so funcionou o negrito mesmo no anterior que passei a vc.

    vou testar o que vc me passou.

    este "largura dupla" é o tamanho????



    ps: a impressora sao as pequenas nao fiscais

    obrigado
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 17/09/2010

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  Pablo Neruda Seg 13 Out - 17:53

    O largura dupla é o que aumenta o tamanho da fonte.... Esses são os comandos utilizados na maioria das impressoras, para conseguir ver algo mais teria que consegui a marca/modelo da impressora. De repente ela tem alguma limitação e/ou codificação diferente...


    .................................................................................
    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Elohim Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3942
    Registrado : 29/06/2012

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  Noobezinho Ter 14 Out - 12:14

    Hilton

    Como disse antes, não tenho impressora matricial para testar

    Teste o exemplo que estou enviado.

    Até onde eu sei, não tem comandos para alterar o tamanho da fonte, somente existindo o modo expandido.
    Ele pode ser normal ou em negrito.

    Noob


    Última edição por Noobezinho em Qua 15 Out - 23:41, editado 1 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Qua 15 Out - 21:21

    boa tarde leandro


    testei o bd que mandou e saiu tudo em negrito, mas nao aumentou fonte nada nao

    obrigado
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3942
    Registrado : 29/06/2012

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  Noobezinho Qua 15 Out - 23:44

    Hilton

    Desculpe a confusão no nome

    Eu consultei teu perfil, ou achei que estava no teu perfil.
    Devo ter pego o nome de outro.

    Ele expandiu?

    Creio que o negrito só funcione com as letras normais, não expandida, por favor, teste.

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Qui 16 Out - 0:44

    nao expandiu nao, ficou tudo em negrito

    o unico recurso que usei de todos ate agora que deu certo foi

    Open "COM1:" For Output As #1

    Print #1, 'salta uma linha
    Print #1, 'salta uma linha
    Print #1, 'salta uma linha


    'negrito
    Print #1, Chr(27) & "E"
    Print #1, "NADA DA CERTO EM NEGRITO"
    'nao negrito
    Print #1, Chr(27) & "F"
    Print #1, "NADA DA CERTO SEM NEGRITO"

    Close #1


    este eu consegui fazer o negrito, mas esta linha

    'nao negrito
    Print #1, Chr(27) & "F"
    Print #1, "NADA DA CERTO SEM NEGRITO"

    nao desativou o negrito nao, o engracado é que depois disso, mesmo desligando a impressora tudo sai em negrito, ate o programa antigo, tudo que imprime sai em negrito

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Qui 16 Out - 1:29

    nao sei se tem algo a ver, mas esta impressora esta na com1 e esta como generic/only
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3942
    Registrado : 29/06/2012

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  Noobezinho Qui 16 Out - 2:26

    Hilton

    Não adianta, estamos andando em círculos.

    Sugiro que descubra a marca e modelo dessa impressora e então procure pelo manual dela.

    Pois como disse, sequencias de escape não é padrão para todas impressoras.

    Grande abraço

    Nb


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Ter 21 Out - 14:03

    bom dia amigo, veja o teste que vc tinha pedido para eu fazer sem separar, ou seja, fazer tudo junto

    Private Sub Comando4_Click()

    Open "COM1:" For Output As #1



    Print #1, Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " UTIL CASA E CONSTRUCAO" & Chr$(27) & Chr$(70) & Chr$(20)
    Print #1, Chr$(27) & Chr$(15) & " R.Joao Pio Duarte Silva, 1124"
    Print #1, " Corrego Grande - Florianopolis"
    Print #1, " CNPJ: 07.885.158/0001-35"

    Close #1





    End Sub



    obs: imprimiu norma, sem negrito, sem aumentar
    so nao consigo anexar aqui pra vc ver
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Sex 24 Out - 23:23

    up
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Ter 28 Out - 15:47

    up
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal Empty Re: [Resolvido]imprimir cupom em negrito e aumentar o tamanho da fonte em impressora nao fiscal

    Mensagem  infformax Qua 26 Nov - 18:29

    boa tarde a todos

    apos pesquisas consegui encontrar como aumentar(expandir) o tamanho da fonte numa impressora termica nao fiscal, pois a mesma nao tinha marca e nem modelo.

    segue o comando que deu certo:

    'ativa passada dupla
    Print #1, Chr(27) & Chr(33) & Chr(32)
    Print #1, "DELIVERY"

    'desativa passada dupla
    Print #1, Chr(27) & Chr(33) & Chr(0)
    Print #1, "DELIVERY"

    obrigado a todos que de alguma forma contribuiram para a resolucao do mesmo

      Data/hora atual: Ter 13 Abr - 15:06