[Resolvido]Configurar página por VBA...

Colegas, como faço para imprimir o recibo no tamanho: Altura = 102mm e Largura 210mm, neste comando abaixo, por favaor?
Alías é quando carrego o relatório (reltlmktrecibo) que o coloco?

Private Sub Report_Load()

With Reports!reltlmktrecibo.Printer

.TopMargin = 1440
.BottomMargin = 1440
.LeftMargin = 1440
.RightMargin = 1440

.ColumnSpacing = 360
.RowSpacing = 360

.ColorMode = acPRCMColor
.DataOnly = False
.DefaultSize = True
'.ItemSizeHeight = 2880
'.ItemSizeWidth = 2880
.ItemLayout = acPRVerticalColumnLayout
.ItemsAcross = 6

.Copies = 1
.Orientation = acPRORLandscape
.Duplex = acPRDPVertical
.PaperBin = acPRBNAuto
.PaperSize = acPRPSStatement
.PrintQuality = acPRPQMedium

End With
End Sub

Agradeço desde já!
At
MPS

Olá MPS,

Tente trocando os valores dos respectivos dados informados por variáveis do tipo:

Dim x As Integer
Dim y As Integer

x = InputBox("Altura: ","Pesquisa")
y = InputBox("Largura: ","Pesquisa")


.ItemSizeHeight = " & x
.ItemSizeWidth = " & y

Um pitaco;

A configuração das páginas funcional em Twip`s

A conversão é:

102 mm = 5782,68 twip`s

Pode converter aqui:
http://www.translatorscafe.com/cafe/EN/units-converter/typography/1-3/

Então para as dimensões que quer será;

.ItemSizeHeight = 5782
.ItemSizeWidth = 11905

Sendo que o .DefaultSize tem de estar = False

Good guy, obrigado.
JPaulo, importante esta observação. Nem conhecia o twips. Obrigado.
Adaptei para um modelo daqui do Fórum.
Contudo não funcionou.
Será que o problema está no Papersize, por favor?

Dim VarRelatorio As String
Dim rpt As Access.Report
Dim prtr As Access.Printer
Set Application.Printer = Nothing
Set prtr = Application.Printer

VarRelatorio = "reltlmktrecibo"

prtr.DefaultSize = False
prtr.ItemSizeHeight = 10.2 * 567
prtr.ItemSizeWidth = 20 * 567
'Define as margens da folha
prtr.TopMargin = 3.5 * 567
MsgBox prtr.TopMargin
prtr.BottomMargin = 1 * 567
prtr.LeftMargin = 1 * 567
prtr.RightMargin = 1 * 567
'Abrir o relatório em modo de visualização
DoCmd.OpenReport VarRelatorio, acViewPreview, , , acWindowNormal

Set rpt = Reports(VarRelatorio)
DoCmd.Maximize
Set rpt.Printer = prtr

At
MPS

Escolha o tipo de papel, antes de definir as margens,

A3 = acPRPSA3
A4 = acPRPSA4


Pode consultar mais tipos de papel em AcPrintPaperSize

prtr.PaperSize = acPRPSA4

Veja se ajuda o site do Avelino;

http://www.usandoaccess.com.br/tutoriais/tuto47.asp

JPaulo, obrigado.
Sinceramente acho que este Papersize é que determina a altura e largura.
Pois coloquei o modelo acPRPSEnvDL que é um envelope e então alterou, mas não existe Papersize com estas medidas que quero.
O ItemSizeHeight e o ItemSizeWidth realmente servem para estabelecer a altura e largura da página?
Agradeço desde já!
At
MPS

Não estou muito dentro do assunto, mas penso que esta dica do Avelino vai ajudar,

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/1507025173

Mestre JPaulo, segui vossas dicas e percebi que outros colegas apresentaram o mesmo problema para o Mestre Avelino.
Não encontrei a solução para imprimir personalizado pelo VBA então segui outro conselho dele e criei o formulário no Windows.
Terça que vem irei no setor e testarei.
Depois completo o relato para conclusão.
Obrigado pelos links!
At
MPS

JPaulo, acabei de testar!
Funcionou perfeitamente.
Mais uma vez obrigado!
At
MPS

Fico feliz...
Obrigado pelo retorno o forum agradece.