IMPRESSORA MATRICIAL DUVIDA

 Tópico anterior Próximo tópico Novo tópico

IMPRESSORA MATRICIAL DUVIDA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#260787 - 24/03/2008 18:25:04

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Última edição em Editado em 25/03/2008 12:57:09 por CARINHENA por

Pessoal, estou tentando usar um impressora, Citizen GSX-190.

Matricial.

Até ai tudo bem, uso uma função (usando printer) e então, imprimo.

Mas, não consigo de jeito nenhum pegar o começo da impressão, como na foto:



A primeira Seta (de cima para baixo) era onde o  X  deveria ficar e a segunda é aonde esta saindo.

Perceba que a impressão esta comendo uns  5 cm  do cabeçalho e simplesmente não consigo colocar o X no lugar certo.. e ja tentei de tudo..

pra imprimir estou usando isso:

No Load
Picture1.ScaleMode =  6
Printer.PaperSize =  9

Rotina:
PicRelatorio.Cls
[ô]PicRelatorio.Image = Nothing
PosY =  -0

PintarPicture PicRelatorio,  X , vbBlack, False,  Courier New , 12, 136, PosY
PintarPicture PicRelatorio,  X , vbBlack, False,  Courier New , 12, 158, PosY
PosY =  12
[ô]PosY = Val(PosY) + Val(18)
PintarPicture PicRelatorio,  Venda ou Devolução , vbBlack, False,  Courier New , 9, 13, PosY

[ô]Razão Social
PosY = Val(PosY) + Val(12)
PintarPicture PicRelatorio,  paulo , vbBlack, False,  Courier New , 9, 13, PosY

PintarPicture PicRelatorio,  1 , vbBlack, False,  Courier New , 12, 124, 185
Printer.CurrentY =  0
Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORPortrait
Printer.PaintPicture PicRelatorio.Image, 0, 0
Printer.EndDoc

Alguem tem idéia de como escrever nesses menos  5 cm  do cabeçalho que ele ta comendo?
E olha que ja li de tudo...


Carinhena

A melhor forma de aprender e ensinando!


#260816 - 25/03/2008 00:23:12

CARINHENA
SOROCABA
Cadast. em:Junho/2004


up


Carinhena

A melhor forma de aprender e ensinando!


#260881 - 25/03/2008 12:16:45

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Tem alguma coisa mecanicamente nela que permita fazer isso?
Pq não importa o que eu faça.. simplesmente ela não começa a imprimir antes :(


Carinhena

A melhor forma de aprender e ensinando!


Resposta escolhida #260907 - 25/03/2008 14:27:39

LCSD
SAO PAULO
Cadast. em:Janeiro/2001


Primeiramente é preciso saber se em QUALQUER relatório acontece a mesma coisa.

Agora gostaria de ver a função PINTARPICTURE que você está usando.


  
Quando precisar, pode contar comigo....
E quando precisar, não esqueça de agradecer, pois a educação é a ALMA DO NEGÓCIO...


Obrigado.

Luiz Cesar

#260928 - 25/03/2008 16:43:02



Cadast. em:


Cara, pode ser problema na definição das margens da impressora, nas configurações do Windows.

Se eu não me engano, ele deixa 2,5 cm de margem superior como padrão. Verifique...




#260933 - 25/03/2008 16:57:05

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Edermir

Sim aocntece em todo e qualquer relatório, seja ele no datareport ou objeto printer (que é o que estou usando).

A função PintarPicture

Public Function PintarPicture(SeuPicture As PictureBox, SeuTexto As String, CorLetra As ColorConstants, Negrito As Boolean, TipoFonte As String, TamanhoFonte As Byte, PosicaoHorizontal As Single, Optional PosicaoVertical As Single)
SeuPicture.ForeColor = CorLetra
SeuPicture.FontBold = Negrito
SeuPicture.FontName = TipoFonte
SeuPicture.FontSize = TamanhoFonte
SeuPicture.CurrentX = PosicaoHorizontal
SeuPicture.CurrentY = PosicaoVertical
SeuPicture.Print SeuTexto
End Function



Barros
Então.. não consigo ver nas propriedades da impressora isso...
Vc tem alguma dica?
Estou usando o driver quem vem no windows XP mesmo...
Ou será que vou ter que procurar o driver dela original?


Carinhena

A melhor forma de aprender e ensinando!


#260944 - 25/03/2008 18:12:25

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Ja mexi nas configurações... e nada =(

Não adianta.. antes dos 2,5 cm mais ou menos.. ela simplesmente se recusa a imprimir

Não é possível que não tenha uma solução...


Carinhena

A melhor forma de aprender e ensinando!


#260945 - 25/03/2008 18:14:51

CARINHENA
SOROCABA
Cadast. em:Junho/2004


alias.. são formulários continuos 4 vias NFF 240x280mm 2x0 cor copy AIDF, e não tem cristo que consiga... mudar pra imprimir.. certo...


Carinhena

A melhor forma de aprender e ensinando!


#260949 - 25/03/2008 18:51:30

USUARIO.EXCLUIDOS

Cadast. em:


se voce esta usando o printer basta configurar as margens

e os comandos de tamanho e orientação do papel devem ser antes dos comandos printer. ......

configure os

Printer.ScaleLeft (margem esquerda)
Printer.ScaleTop (Margem do top(cabeçario))

isso ja deve ajudar
se nao ajudar envia o codigo de impressao completo que vemos o que esta acontecendo




#260957 - 25/03/2008 19:36:10

VB6MASTER
MIRANDOPOLIS
Cadast. em:Dezembro/2003


Carinhena.
Primeiramente, tente utilizar a dica: PRINTER - CONFIGURAR TAMANHO DA PAGINA.
Se isto não der certo, vc deverá configurar a impressora MECANICAMENTE e não no sistema. Verifique o manual do proprietário. Veja que no corpo da impressora existem umas chavinhas bem pequenas. Este é o modo de configuração dela. É neste pequeno painel que vc determinará, p.ex., se após a impressão deverá ser adicionada algumas linhas para facilitar o recorte do formulário.


Boa sorte e t+
Feliz aquele que passa o que sabe e aprende o que ensina.  

#260975 - 25/03/2008 21:53:14

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Então.. descobri que o problema é que ao puxar a folha, ela esta fazendo isso.
Por exemplo, se eu apertar para ela posicionar a folha e girar  duas voltinhas  minimas para trás, então ela imprimi no começo, mas, na próxima impressão se eu não der essas
duas voltinhas  ela não consegue imprimir no cabeçalho...

Creio que isso vai ter que ser feito uma regulagem fisica nela.. certo?


Carinhena

A melhor forma de aprender e ensinando!


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45