[Resolvido]Como definir o tamanho do papel

bom dia

Como eu defino o tamanho do papel quando eu mando no comando direto pra impressoa
eu quero usar esse tipo e o tamanho do papel que quero usar e o razao 14cmx22cm

Dim nPed, DtVenda, Fpag, Reg1
nPed = Forms![vendas 2]!N__Pedido
DtVenda = Forms![vendas 2]!Data_da_Venda
Fpag = Forms![vendas 2]!FPagamento
Reg1 = Forms![vendas 2]!Código_da_Venda
'cupon para impressora termica de 40 colunas
Open "LPT1:" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA";
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(10); "Codigo do Pedido : " & Me.N__Pedido;
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "Data :" & Me.Data_da_Venda; " " & " "; "Hora :" & Time;
Print #1, Tab(0); "F. Pagamento: " & Me.FPagamento
Print #1, Tab(0); "------------------------------------------------";


'cabeça do cupon do items
Print #1, Tab(0); "Cod. "; " Item";
Print #1, Tab(0); "Qtd. "; "VL Uni."; " VL Total "
Print #1, Tab(0); "------------------------------------------------";

Boas Nardiron, veja no Repositório... Temos lá exemplo de configuração de Papel e margens na impressora


Cumprimentos.

mas eu quero no modulo lpt1 e nao no relatorio

Envie uma MP para o Jungli.. ele tem mais experiencia neste código.


Abraços.