Definir o Tamanho do Papel

como que eu defino o taanho do papel no modulo print(lpt1) eu quero usar um papel razao

Quer mudar o tamanho do papel no relatório?

Se for isto no repositório de exemplos temos exemplos de configuração de papel, margem etc.


Cumprimentos.

so que eu quero neste modulo

Dim lpt1
Dim TP
'lpt1 = MsgBox("Deseja Imprimir na lpt1", vbYesNoCancel)
'If lpt1 = vbYes Then
Dim s50
Dim s100

Dim data_ini As String, Data_fin As String, rss As Recordset, fatura1 As Double, fatura As Double, TOTAL As Double, TOTAL1 As Double
Dim dbLocal As DAO.dataBase
Dim wsT As DAO.Workspace
Dim rst As DAO.Recordset
Set wsT = DBEngine.Workspaces(0)
Set db = wsT.OpenDatabase(CurrentProject.Path & "\dados.mdb", False, False, "MS Access;PWD=senha")
strSQl = "SELECT * FROM ponto where registro = '" & Forms!funcion1!Registro & "'" & _
"And data >= #" & Me.DATAINICIAL & "# " & _
"And data <= #" & Me.DATAFINAL & "#"
Set rt = db.OpenRecordset(strSQl)
s50 = Nz(rt.Fields("HE50"))
s100 = Nz(rt.Fields("HE100"))
Dim TT
TT = Nz(Texto75 + Texto77)
Open "LPT1" For Output As #1
'Open "c:\fatura.txt" For Output As #1 ' envia para arquivo texto
Print #1, Chr(27) + "@" 'Limpa o buffer da impressora
Print #1, Chr(14); Tab(2); " LIVRO PONTO.: " & Format([Competencia], "MMMM/YYYY")
Print #1, Chr(14); Tab(2); " FAZENDA.: AGROPECUARIA VALE VERDE"
Print #1, Chr(27) + g; Tab(2); " FUNCIONARIO.: " & Me.Registro & "-" & funcs
Print #1, " ----------------------------------------------------------------------------"
Print #1, Chr(15) + h; Tab(2); " SEM | Data | Entr | Saida |H.X 50% | H.X 100%|"
Print #1, " ----------------------------------------------------------------------------"
Do While Not rt.EOF
fatura = Nz(rt.Fields("HE50") * 24)
fatura1 = Nz(rt.Fields("HE100") * 24)
Print #1, Tab(5); rt.Fields("dia sem"); "|"; rt.Fields("data"); "|"; rt.Fields("e1"); "|"; rt.Fields("S2"); "|"; rt.Fields("HE50"); "|"; rt.Fields("HE100"); "|"
rt.MoveNext
Loop
Print #1, Tab(0); " ----------------------------------------------------------------------------"
Print #1, Tab(27); "Total H.ETRA 50% R$: "; Format$(Format$(Me.T50, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); " ----------------------------------------------------------------------------"
Print #1, Tab(27); "Total H.ETRA 100% R$: "; Format$(Format$(Me.T100, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); " ----------------------------------------------------------------------------"
Print #1, Tab(20); "TOTAL HORAS TRABALHADAS R$: "; Format$(Format$(Me.TOTAL_HT, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); " ----------------------------------------------------------------------------"
Print #1, Tab(11); "ATESTADOS.:"; Me.Atestado; ""
Print #1, Tab(11); " FALTAS.:"; Me.Faltas; ""
Print #1, Tab(0); " ----------------------------------------------------------------------------"
Print #1, Chr(10) & Chr(13)
Print #1, Chr(10) & Chr(13)
Print #1, Tab(25); " -----------------------------------------------------"
Print #1, Tab(32); Me.Registro & "-" & Me.funcs
Print #1, Chr(10) & Chr(13)
Print #1, Chr(10) & Chr(13)
Print #1, Chr(10) & Chr(13)
Print #1, Chr(10) & Chr(13)
Print #1, Chr(10) & Chr(13)
Print #1, Chr(27) + "i"
Close #1

Neste no momento nào sei como ajudá-lo... aguarde ver se algum colega o sabe.


Cumprimentos.