Prezados amigos, gostaria de alterar a fonte no comando print e não estou conseguindo. Utilizo o Access 2000 e a impressora é a epson lx 300. Abaixo segue um fragmento do código. Desde já agradeço.

Dim db As Database
Dim rs As Recordset
Dim descrfunc As String
Dim DescrItem As String
Dim Unidade As String
Dim Unit As Integer
Dim QtdeVenda As Integer
Dim Total As Currency
Dim geral As Currency
Dim I As Integer
Set db = CurrentDb()
'Open "\\Douglas\Epson Lx-300" For Output As #1
Open "LPT1" For Output As #1
Print #1, Chr$(27) & "E"; "CASSIANO BEBIDAS"
Print #1, Chr$(27) & Chr(70);
Print #1, Chr(15); "Razão Social:"
Print #1, Chr(15); "Jose Cassiano Pereira - ME"
Print #1, Chr(15); "CNPJ: 11.531.233/00001-37"
Print #1, Chr(15); "Insc. Est.: 18.250.0071242-1"
Print #1, Chr(15); "End: Av. Barreto de Menezes, 621 - Prazeres"
Print #1, Chr(15); "Prazeres - Jaboatao - PE."
Print #1, Chr(15); "Tels081)3476-1537 / 0800-281-7010"
Print #1,
Print #1, "--------------------------------------------"
Print #1, Chr(15); "NOTA DE PEDIDO:"; Tab(17); Me.CódigoPedido
Print #1, Chr(15); "Operador :"; Tab(17); Me.Usuário
Print #1, Chr(15); "Data/Hora :"; Tab(17); Me.HoraDoPedido
Print #1,
Print #1, Chr(15); "CLIENTE:"
Print #1, Chr$(27) & "E"; Me.CboCliente.Column(1); Chr$(27) & Chr(70);
Print #1,
Print #1,

Private Sub Detail_Format(Cancel As Integer, _
FormatCount As Integer)
Dim rpt as Report
Dim strMessage As String
Dim intHorSize As Integer, intVerSize As Integer

Set rpt = Me
strMessage = "DisplayMessage"
With rpt
'Set scale to pixels, and set FontName and
'FontSize properties.
.ScaleMode = 3
.FontName = "Courier"
.FontSize = 24
End With
' Horizontal width.
intHorSize = Rpt.TextWidth(strMessage)
' Vertical height.
intVerSize = Rpt.TextHeight(strMessage)
' Calculate location of text to be displayed.
Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2)
Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2)
' Print text on Report object.
Rpt.Print strMessage
End Sub

Prezado Karin Patrocinio, obrigado por responder tão prontamente. Abraços.

colega só para complementar a resposta do colega, que ele expos muito bem o help do access sobre me.print, para mudar o nome é só usar me.fontname ="courier"
, para mudar o tamanho da fonte me.fontsize = 10
para colocar sublinhado me.print.underline = true e tirar = false
para negrito me.fontbold = true para tirar = false
ápós feito o procedimento que vc quer use o me.print "qualquer coisa" que ficará do jeito que vc quer.


Abraços


Rogério