[Resolvido]Contador estranho antes da impressão do relatório - ow paciencia

Boa tarde,

Estivemos desenvolvendo um sistema de pedidos com ajuda de um amigo aqui do forum, ele esta finalizado.

Só tem uma coisa que esta atrapalhando, que é uma contagem estranha antes de imprimir! Ja fui no gerenciador de impressão, mas la não tem nada relacionado. Tirei a opção da impressão de ir primeiro para o SPOOL e mandei direto para impressora..mesmo assim, quando mando imprimir um registro(só existe 01) ele faz uma contagem ate 32767

Pedi para outros colegas meus uma ideia, mas eles disseram não sabem..(ate postaram em outro forum)

Anexo esta a imagem da impressão...


Vocês já viram algo parecido?

Ps. Também entrei em contato com o suporte técnico da impressora(Bematech) eles desconhecem tal contagem...

muito obrigada

Boas Tatiana... EU nunca vi isto... POste o código para que vejamos isso.

Já viu com o jungli sobre isto? creio que o mesmo tem mais experiencia sobre este tipo de impressão.


Cumprimentos.

Então, foi ele mesmo que praticamente desenvolveu o código...mas não conseguiu achar uma razão para esse contador...

O contador muda a cada nova impressão? ele aumenta?

A impressão são perfeita?


Cumprimentos.

Então,

O Contador não muda, sempre conta até 32767

A impressao sai perfeita..só que só começa a imprimir quando termina a contagem.

Com isso, demora muito para imprimir...

Podees disponibilizar a parte do BD para que possamos ver?

Abraços.

Posso sim,

Segue..

Desde ja obrigada

Olá,

Qual é o relatório, e de onde está chamando o comando de impressão?

rptCupom

Ao testar aqui, não ocorreu esse problema.

Ola, obrigada pelo retorno!

O problema acontece quando você cadastra um pedido

Primeiro você cadastra um prato com a data de hoje..
Segundo você cadastra um pedido..e manda SALVAR/LIBERAR IMPRESSÃO....

Quando testei numa hp normal também não ocorreu esta contagem..

Então,
Acabei de falar com o suporte da bematech e falaram que isto não existe na impressora
Que coisa complicada viu pessoal...:/

O problema acontece quando você cadastra um pedido

PITACO: se só acontece quando cadastra o pedido, quer dizer que quanto manda imprimir um registro cadastrado anteriormente, ou seja, quando pega um registro por consulta, isso não acontece? Se assim for, talvez fosse o caso de mudar a forma de mandar imprimir. Ao invés de mandar logo no cadastro, buscar pela consulta.

Grata pela sugestão, mas penso que:
Se assim fosse, o "erro" aconteceria em outras impressoras também(até gerando PDF eu tentei) e não fez a contagem..
Ou seja,"viajando" um pouco, sera que não tem relação com o tamanho da impressão? pois é aquela bobina pequena de nota não fiscal..Na altura da situação já começo a considerar coisas "complexas"

Sim, mas pelo que entendi isso só acontece quando você cadastra um registro, é isso mesmo? Quando você manda imprimir um registro já cadastrado não acontece, certo? Então essa seria uma forma de contornar o problema.

Não seria o comando de corte e encerramento da rotina no final do código?


Cumprimentos.

Algo haver com o comando Close lpt1 e tal... Certa vez vi um problema relacionado a isto.

Cumprimentos.

Obrigada mais uma vez pessoal!

Vou usar estas dicas que falaram e post aqui novamente

Nao deu certo..

olha o codigo da impressao:

Código:


Option Compare Database
Option Explicit

Type typPrinter
    FormatoPapel As AcPrintPaperSize
    Orientacao As AcPrintOrientation
    NumeroDeCopias As Byte
    margemEsquerda As Single
    MargemDireita As Single
    MargemSuperior As Single
    MargemInferior As Single
    AlturaPapel As Single
    LarguraPapel As Single
End Type

Public Enum vbZoom
    Z50 = 50
    Z75 = 75
    z100 = 100
End Enum

Public setPrinter As typPrinter

Public Function fncImprimir(NomeRelatorio As String, Optional ModoPreview As AcView = acViewPreview, Optional Filtro As String, _
Optional ModoJanela As AcWindowMode = acWindowNormal, Optional ModoZoom As vbZoom = 100, Optional Impressora As Variant = acDefault)

On Error GoTo TratarErro
Const tw = 566.8934 'Este valor equivale a 1 centímetro

DoCmd.SetWarnings False

'Abre o relatório no modo Visualizar Impressão e oculto
DoCmd.OpenReport NomeRelatorio, acViewPreview, , Filtro, acHidden
With Reports(NomeRelatorio)
'----------------------------------
'Seleciona a impressora a ser usada
'----------------------------------
If Impressora = acDefault Then
    'Impressora padrão
    Set .printer = Application.Printers(.Application.printer.DeviceName)
Else
    'impressora selecionada pelo usuário
    Set .printer = Application.Printers(Impressora)
End If
'-------------------------------------
'Alterando as configurações de layout
'-------------------------------------
    .printer.PaperSize = setPrinter.FormatoPapel
    If setPrinter.FormatoPapel = acPRPSUser Then
        .printer.DefaultSize = False
        .printer.ItemSizeHeight = setPrinter.AlturaPapel * tw
        .printer.ItemSizeWidth = setPrinter.LarguraPapel * tw
    Else
        .printer.DefaultSize = True
    End If
    .printer.Orientation = setPrinter.Orientacao
    .printer.TopMargin = setPrinter.MargemSuperior * tw
    .printer.LeftMargin = setPrinter.margemEsquerda * tw
    .printer.RightMargin = setPrinter.MargemDireita * tw
    .printer.BottomMargin = setPrinter.MargemInferior * tw
End With
'---------------------------------
'Libera o relatório para o usuário
'----------------------------------
If ModoPreview <> acViewNormal Then
    DoCmd.OpenReport NomeRelatorio, ModoPreview, , Filtro
    DoCmd.Maximize
        Select Case ModoZoom
            Case 50
                DoCmd.RunCommand acCmdZoom50
            Case 75
                DoCmd.RunCommand acCmdZoom75
            Case 100
                DoCmd.RunCommand acCmdZoom100
            Case Else
                DoCmd.RunCommand acCmdZoom100
        End Select
Else
    DoCmd.OpenReport NomeRelatorio, acViewNormal, , Filtro
End If

sair:
    Call fncPadraoPrinter 'restabelece as configurações padrão
    DoCmd.SetWarnings True
    Exit Function
TratarErro:
    If err.Number = 2501 Then
        MsgBox "O relatório não contém dados...", vbInformation, "Aviso"
    Else
        DoCmd.Close acReport, NomeRelatorio, acSaveNo 'fecha o relatório que estava oculto
        MsgBox "Erro: " & err.Number & vbCrLf & err.Description, vbCritical, "Aviso", _
        err.HelpFile, err.HelpContext
    End If
    DoCmd.Restore 'Restaura formulário que está em maximizado
    Resume sair
End Function

Public Function fncPadraoPrinter()
'----------------------------------------------------------
'Altere os valores aqui, conforme o seu padrão estabelecido
'Medidas em centímetros
'----------------------------------------------------------
setPrinter.FormatoPapel = acPRPSA4 'papel A4
setPrinter.MargemDireita = 1.5
setPrinter.margemEsquerda = 1.5
setPrinter.MargemSuperior = 1.5
setPrinter.MargemInferior = 1.5
setPrinter.NumeroDeCopias = 1
setPrinter.Orientacao = acPRORPortrait 'Orientação Retrato
setPrinter.AlturaPapel = 29.7
setPrinter.LarguraPapel = 21
End Function



Pessoal, Tudo bem!?

Depois de alguns dias trabalhando direto ..andei revirando o código e percebi que deve ser algo relacionado ao "repaginamento" ou configuração da pagina(bobina no caso)

Pois como o problema não ocorre com nenhuma outra impressora normal(das paginas a4), percebi que ele faz esta contagem apenas quando mando imprimir na impressora não fiscal pequena

Até fiz o teste em outro micro, e acontece exatamente a mesma coisa

Com isso, vocês tem alguma dica?

A impressão sai correta?

Se imprime correto, ja pesquisou se é possível inibir esta mensagem e se caso for possiveo inibir criar uma msgbox com a mensagem conforme necessita...

De uma pesquisada se é possível inibir a msg.

Cumprimentos.

Boa tarde Tatiana no evento Click do botão Comando56,

mude o código para:

'Chamada para imprimir o cupom
Dim ValorDeRetorno As Integer
ValorDeRetorno = Shell(CurrentProject.Path & "\Imp.exe /p C:\pedidos\Cupom.prn", vbHide)

Me.ClienteCod.SetFocus
Me.Comando56.Enabled = False

teste e me diga o que acontece.

Acho que quase lá

Eu retirei as linhas JUNGLI, ele imprimiu do modo correto(sem mostrar o contador) no entanto, a configuração do tamanho da fonte, margens se perdeu..

é verdade, vou fazer a configuração do cupom e te repasso.

Abra a pasta C:\Pedidos
Abra o arquivo Imp.exe
Abra o menu arquivo/Configuração de páginas
Apague o que tiver nas caixas cabeçalho e rodapé

Abra o menu Formatar/Fonte...
nome da fonte: consolas
tamanho da fonte: 8

teste e diga se deu certo.

Obrigad a todos que me ajudaram, em especial ao JUNGLI e ao PILOTO

Pela paciência e ajuda...

Resolveste?

Resolvido

Fiquei feliz que conseguiu resolver..

Agradecemos o Retorno.