[Resolvido]Código p/Lx-300: Alterar fonte para Roman

Impressora Matricial Epson Lx-300
Preciso incluir no código abaixo, os comandos para alterar a fonte para Roman

Dim PortImp As String
PortImp = "\\Wanotoshiba\Epson LX-300"
Open PortImp For Output As #1
Print #1, ""
Print #1, "1 teste"
Print #1, "2 teste"
Print #1, "3 teste"
Print #1, ""
Close #1

Preciso de ajuda, já testei inúmeras combinações e não consegui fazer funcionar

Abraços

Ola Walter;

Se não estou em erro, é apenas assim;

PortImp = "\\Wanotoshiba\Epson LX-300"
Open PortImp For Output As #1
FontName = "Roman"
Print #1, ""
Print #1, "1 teste"
Print #1, "2 teste"
Print #1, "3 teste"
Print #1, ""
Close #1

J.Paulo

Dá o erro: variavel não definida

Então coloquei a variavel como String
Não altererou a fonte

Tentei
Dim FontName As Report
FontName = "Roman"

Erro: Uso inválido da propriedade

Se puder dar uma olhada, agradeço

Nunca usei, foi apenas um palpite que eu dei;

Tente assim;

PortImp = "\\Wanotoshiba\Epson LX-300"
Open PortImp For Output As #1
Font.Name = "Roman"
Print #1, ""
Print #1, "1 teste"
Print #1, "2 teste"
Print #1, "3 teste"
Print #1, ""
Close #1

ou

PortImp = "\\Wanotoshiba\Epson LX-300"
Open PortImp For Output As #1
Printer.Font.Name = "Roman"
Print #1, ""
Print #1, "1 teste"
Print #1, "2 teste"
Print #1, "3 teste"
Print #1, ""
Close #1

J.Paulo

Printer.FontName = "Roman"

Erro: Método ou membro de dados não encontrado

Gostava muito de o ajudar, mas como lhe disse não utilizo;

Já agora diga-me por favor duas coisas, pode ser que ajudar a clarear as ideias;

1º Está a tentar fazer isso no vba do Access ?

2º Qual o objectivo final ?

Veja se ajuda;
http://www.macoratti.net/printer.htm

Sim, estou fazendo do VBA do Access (2003)

A impressora Epson Lx-300 não tem a opção de personalizar o tamanho do papel, portanto não tem como usar o Relatório padrão do Access, pois ela não aceita nem mesmo a personalização feita nas Propriedades do Servidor.

É usado papel formulário contínuo Razão (240 mm x 140mm)

Este tipo de papel e o modelo da impressora são amplamente usados aqui nesta região, portanto não é uma necessidade isolada, pois vários de meus clientes as utilizam.

Especificamente neste caso, o Cliente possui outros sistemas de outros Fornecedores, e alguns deles ao imprimir modifica a fonte selecionada na impressora, acontece que após isso, ao imprimir no meu sistema, a impressão se desconfigura.

a falha pode ser no nome da fonte!

tente assim:

Printer.FontName = "Times New Roman" '..muda a fonte.
Printer.FontSize = 14 '.................muda o tamanho da fonte.

JUNGLI

Também não deu certo

Printer.FontName = "Times New Roman"

Erro: Método ou membro de dados não encontrado

Agradeço pelo interesse

Abraços

Private Sub Comando0_Click()
portimp = "\\Pincol-obra\EpsonLX-"
Open portimp For Output As #1
Print #1, Chr(27); Chr(107) 'Fonte Roman
Print #1, "Teste de alguma coisa by Jungli - 2000 kg"
Close #1
End Sub

caso sua impressora seja a lx 300+ as fontes são praticamente iguais

testei numa lx300 e numa lx300+ está funcionando 100%

Toda a programação das impressoras matriciais (padrão epson) são feitos através dos códigos CHR$, você pode mudar para condençado, rascunho, roman, italico, habilitar impressão de acentuação e Ç, etc... procure por um manual da epson, pode ser da LX300, LX300+, LX810 os código são na maioria das vezes o mesmo, padrão epson

O exemplo do JUGLi tá certinho...

JUNGLI,

Funcionou sim

Muito obrigado mesmo.


PABLO,
Só consegui o manual do usuário e não tem nada
Tentei encontrar o Manual técnico, mas no site da Epson não tem para a LX-300
Realmente... não pensei em procurar manuais de outros modelos da Epson
Valeu pela dica

Abraços.

Obrigado por responder!
... obrigado a todos que contribuíram,
É um prazer ajudar!

Eu tenho aqui mas infelizmente é em papel.... Mas qq coisa tamos ai... Valeu!!!

Tente ver se nesse link você encontra o manual: http://www.epson.com/cgi-bin/Store/support/supDetail.jsp?oid=14340&infoType=Doc