[Resolvido]Tamanho fixo da Pagina em Relatório

Boa tarde Pessoal...

Mais uma vez preciso da ajuda de vocês... eu tenho um relatório e preciso que fique configurado um tamanho de pagina padrao, mas quando mudo de impressora ele configura para o padrão da impressora.

por exemplo, eu configurei para ele ele imprimisse em "envelope N10" e testo... mas se mudo de impressora, volta para o A4, A3, carta, ou o tamanho do papel padrao da impressora.

O que posso fazer?

desde ja muito obrigado
Ton

Option Compare Database
Private Sub Report_Activate()
Dim rpt As Access.Report
Dim prtr As Access.Printer
Set Application.Printer = Nothing
Set prtr = Application.Printer
'Escolhe a orientação do papel
'onde:
'Retrato: acPRORPortrait
'Paisagem: acPRORLandscape
Dim orientacaodopapel

orientacaodopapel = acPRORPortrait
prtr.Orientation = orientacaodopapel
'Escolhe o tipo de papel
'onde
'A3: acPRPSA3
'A4: acPRPSA4
'Oficio: acPRPSLegal
'Consulte demais tipos de papel em AcPrintPaperSize
Dim tipodepapel
tipodepapel = acPRPSA4
prtr.PaperSize = tipodepapel

'Definir as margens da folha
Dim margemsuperior
Dim margeminferior
Dim margemesquerda
Dim margemdireita
margemsuperior = 15
margeminferior = 15
margemesquerda = 15
margemdireita = 15
prtr.TopMargin = margemsuperior
prtr.BottomMargin = margeminferior
prtr.LeftMargin = margemesquerda
prtr.RightMargin = margemdireita
'Abrir o relatório em modo de visualização
DoCmd.OpenReport , "POR_OBRA", acPreview
Set rpt = Reports("POR_OBRA")
Set rpt.Printer = prtr
End Sub

Boa tarde Harysohn... Muito obrigado pelo retorno.

Estou lendo o código enviado... e tentando entender para adaptar ao que preciso, mas tenho algumas dúvidas:

a lista com outros papeis onde eu consigo?
porque não sei onde localizar o "AcPrintPaperSize"
a outra é:
eu posso definir um tamanho Personalizado como por exemplo 210mm x 97mm ou 97mm x 210 mm (paisagem e retrato)

Amigão.. quando o código ja estiver no módulo do relatorio...

Marque a exressão: AcPrintPaperSize

e clique F-1

Aparecerá todas as opções disponíveis.





acPRPS10x14 16 254 mm x 355 mm
acPRPS11x17 17 279 mm x 432 mm
acPRPSA3 8 A3 (297 mm x 420 mm)
acPRPSA4 9 A4 (210 mm x 297 mm)
acPRPSA4Small 10 A4 Pequeno (210 mm x 297 mm)
acPRPSA5 11 A5 (148 mm x 210 mm)
acPRPSB4 12 B4 (250 mm x 354 mm)
acPRPSB5 13 B5 (148 mm x 210 mm)
acPRPSCSheet 24 Folha tamanho C
acPRPSDSheet 25 Folha tamanho D
acPRPSEnv10 20 Envelope nº 10 (105 mm x 241 mm)
acPRPSEnv11 21 Envelope nº 11 (114 mm x 264 mm)
acPRPSEnv12 22 Envelope nº 12 (114 mm x 279 mm)
acPRPSEnv14 23 Envelope nº 14 (127 mm x 292 mm)
acPRPSEnv9 19 Envelope nº 9 (98 mm x 225 mm)
acPRPSEnvB4 33 Envelope B4 (250 mm x 353 mm)
acPRPSEnvB5 34 Envelope B5 (176 mm x 250 mm)
acPRPSEnvB6 35 Envelope B6 (176 mm x 125 mm)
acPRPSEnvC3 29 Envelope C3 (324 mm x 458 mm)
acPRPSEnvC4 30 Envelope C4 (229 mm x 324 mm)
acPRPSEnvC5 28 Envelope C5 (162 mm x 229 mm)
acPRPSEnvC6 31 Envelope C6 (114 mm x 162 mm)
acPRPSEnvC65 32 Envelope C65 (114 mm x 229 mm)
acPRPSEnvDL 27 Envelope DL (110 mm x 220 mm)
acPRPSEnvItaly 36 Envelope italiano (110 mm x 230 mm)
acPRPSEnvMonarch 37 Envelope Monarch (98 mm x 190 mm)
acPRPSEnvPersonal 38 Envelope (48 mm x 165 mm)
acPRPSESheet 26 Folha tamanho E
acPRPSExecutive 7 Executivo (190 mm x 267 mm)
acPRPSFanfoldLglGerman 41 Formulário Contínuo Ofício Alemão (216 mm x 330 mm)
acPRPSFanfoldStdGerman 40 Formulário Contínuo Padrão Alemão (216 mm x 305 mm)
acPRPSFanfoldUS 39 Formulário Contínuo Padrão dos EUA (378 mm x 279 mm)
acPRPSFolio 14 Fólio (216 mm x 330 mm)
acPRPSLedger 4 Ledger (431 mm x 279 mm)
acPRPSLegal 5 Ofício (216 mm x 356 mm)
acPRPSLetter 1 Carta (216 mm x 279 mm)
acPRPSLetterSmall 2 Carta Pequena (216 mm x 279 mm)
acPRPSNote 18 Nota (216 mm x 279 mm)
acPRPSQuarto 15 Quarto (215 mm x 275 mm)
acPRPSStatement 6 Statement (140 mm x 216 mm)
acPRPSTabloid 3 Tablóide (279 mm x 432 mm)
acPRPSUser 256 Definido pelo usuário

Mais uma duvida
ele ta dando erro nesta linha:
DoCmd.OpenReport , "rlt Relatório Produção Grafico Total", acPreview

diz que o argumento não é opcional.

Substitua acPreview, por acViewPreview

Obrigado Vieira...

Mudei e continuou o mesmo problema... sera que ele da este erro dizendo que nao é opcional, porque ja estou abrindo ele clicando duas vezes em cima do relatorio. (estou usando o access 2003).

e como vi que ele estava dando erro na linha eu isolei ela colocando um' na frente dela....

e dai o erro foi na linha
Set rpt.Printer = prtr

Realmente pode estar aí o erro, não sei. Por vezes, mudando a instrução final fica a funcionar bem.

DoCmd.OpenReport , "rlt Relatório Produção Grafico Total", acPreview


Tente retirar a vírgula

Vieira e Harysohn obrigado mais uma vez

achei o pq ele da o erro que o argumento nao é opcional,tinha uma virgula sobrando.

errado
DoCmd.OpenReport, "rlt Relatório Produção Grafico Total", acViewPreview, , , acWindowNormal
certo
DoCmd.OpenReport "rlt Relatório Produção Grafico Total", acViewPreview, , , acWindowNormal

mas ele continua dando erro na ultima linha e diz que nao é possivel alterar as propriedades da impresso no evento ao abrir relatorio.

Ele tem a vírgula colocada Hary.

DoCmd.OpenForm "rlt Relatório Produção Grafico Total", acPreview

Uma das coisas que está mal é o nome do Relatório espaçado

Vierão... não havia utilizado este código ainda...

Um dia o JWano me perguntou sobre isso, busquei na net e encontrei isto...

Ele o estava adaptando.. não sei o que deu, pois não falei mais com ele...
Se puderes lhe enviar uma mensagem, poderia perguntar como resolveu.
Ele ficou de me retornar, mas ate agora não o fez..

Saudações

Veja por favor

https://www.facebook.com/home.php#!/profile.php?id=100000923698432

Ton.. essas linha são para alterar diretamente na impressora


Set rpt = Reports("RelatorioExemplo")
Set rpt.Printer = prtr

Harysohn

desculpe mesmo, mas não entendi... eu tiro estas linhas do comando ao ativar? ou mudo elas? eu entendo que o nome do relatório esta com espaços... mas eu acabei errado isso no inicio e agora fico com medo de mudar e dar pau em algo....

mas em outro relatório com o nome certo da o mesmo erro.

Amigão.. como disse nos post's acima eu nunca utilizei este código..
o havia encontrado e enviado a um colega para utilizar... ele havia conseguido...
Enviei uma msg no facebook dele e estou esperando resposta...

Saudações

Perfeito Harysohn vou esperar tambem rrsrsrs.....

Mas desde ja muito obrigado.... e vou tentando achar uma forma de resolver isso....
se eu descobrir eu posto aqui.

Valeu.

Harysohn.... Valeu pelo retorno.... e pela a ajuda... mas eu fiz o seguinte:

eu coloquei o código em um botão. e quando clica no botao ele abre o relatório com quase todas as configurações feitas no código... as margens nao ficaram configuradas.... mas ainda to tentando ver o que pode ser feito.

pode me ajudar com as margens? por favor?

Harysohn segue abaixo o código completo.. colocado em um botão de um form para abrir o relatório.

Valeu...
o problema agora só esta na parte das margens.... e aproveitando gostaria de saber como posso usar o tamanho definido pelo usuario. acPRPSUser

Private Sub btnRelArteFinal_Click()
Dim datain, dataout As String
datain = Format(Me.txtDataInicial, ddmmmyyyy)
dataout = Format(Me.txtDataFinal, ddmmmyyyy)

If Me.txtDataInicial = 0 Or IsNull(Me.txtDataInicial) Then
Me.txtDataInicial = Format("01/01/0000", ddmmyyyy)
Else
End If
If Me.txtDataFinal = 0 Or IsNull(Me.txtDataFinal) Then
Me.txtDataFinal = Format("31/12/2999", ddmmyyyy)
Else
End If

Dim rpt As Access.Report
Dim prtr As Access.Printer
Set Application.Printer = Nothing
Set prtr = Application.Printer
'Escolhe a orientação do papel
'onde:
'Retrato: acPRORPortrait
'Paisagem: acPRORLandscape
Dim orientacaodopapel

orientacaodopapel = acPRORPortrait
prtr.Orientation = orientacaodopapel
'Escolhe o tipo de papel
'onde
'A3: acPRPSA3
'A4: acPRPSA4
'Oficio: acPRPSLegal
'Consulte demais tipos de papel em AcPrintPaperSize

Dim tipodepapel
tipodepapel = acPRPSA4
prtr.PaperSize = tipodepapel

'Definir as margens da folha
Dim margemsuperior
Dim margeminferior
Dim margemesquerda
Dim margemdireita
margemsuperior = 150
margeminferior = 150
margemesquerda = 150
margemdireita = 50
prtr.TopMargin = margemsuperior
prtr.BottomMargin = margeminferior
prtr.LeftMargin = margemesquerda
prtr.RightMargin = margemdireita
'Abrir o relatório em modo de visualização
DoCmd.OpenReport "rlt Relatório de Artes", acViewPreview, , , acWindowNormal
Set rpt = Reports("rlt Relatório de Artes")
DoCmd.Maximize
Set rpt.Printer = prtr

DoCmd.Close acForm, "frm Relatorio Arte Final", acSaveYes

End Sub

desde ja muito obrigado.

A explicação do colega JWano


É bem simples, são só quadro linhas de código.

No evento, AO ABRIR do Relatório:

Me.Printer.TopMargin = 3 * 567 'margem superior
Me.Printer.BottomMargin = 1* 567 'margem inferior
Me.Printer.LeftMargin = 3 * 567 'margem esquerda
Me.Printer.RightMargin =1 * 567 'margem direita

Os números em vermelho, são as medidas que vc. quer nas margens, em centimetros.
Os centimetros são multiplicados (*) por 567, para converte-los para twips, que é a medida que a propriedade aceita.

Para o uso em meu Sistema, estou pegando essas medidas em uma tabela que tenho em um BD auxiliar,
as quais o usuário personaliza de acordo com sua vontade.
então ficou assim:

Private Sub Report_Open(Cancel As Integer)
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim cmh As String
Dim strSQL As String
cmh = CurrentProject.path & "\Wano_PC.mde"
strSQL = "SELECT * FROM tbImpr WHERE cdRel = " & 33
Set Db = OpenDatabase(cmh)
Set rs = Db.OpenRecordset(strSQL, dbOpenSnapshot)
If rs.RecordCount > 0 Then
Me.Printer.TopMargin = rs!nMargSup * 567 'margem superior
Me.Printer.BottomMargin = rs!nMargInf * 567 'margem inferior
Me.Printer.LeftMargin = rs!nMargEsq * 567 'margem esquerda
Me.Printer.RightMargin = rs!nMargDir * 567 'margem direita
End If
rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing
End Sub



Agora quero definir o papel: A4, A5, personalizado
O Access não aceita a definição direta como nas margens, terá que ser definida nas propriedades
tipo a escolha da Impressora. -
Assim que tiver um tempo, vou trabalhar nisso


Poderia postar depois um pequeno exemplo do que fez amigão?

Saudações

Boa noite

Só para ver se ajuda

Perfect! Assis..

Eu estava até a fazer algo semelhante... hehehehe

Mas ja está pronto neste exemplo justamente o que eu havia pensado...


Saudações

Dava a sugestão ao Assis de colocar esse exemplo no repositório, se ele não se incomodar.

Bem Mestre Vieira.. Como eu havia falado acima, quando o nosso querido amigo Assis postou este fabuloso exemplo, eu estava a preparar um com o código que eu havia passado no post..


Pois bem... o exemplo do colega Assis (ótimo por sinal) grava as alterações no relatorio


Este que fiz abre o relatorio temporariamente com as modificações...
Creio que ficou legal tambem...


Eis

http://dl.dropbox.com/u/26441349/ConfiguraRelatorio.rar

Saudações

Boa noite pessoal....


ou devo dizer bom dia?? rsrs

Harysohn, vieira, Assis

fico agradecido de me ajudarem.... ainda nao analisei o código do Banco do Assis, mas pelo que vi definitivamente resolve o meu problema.... e Hary, o link que postou nao esta dando certo. gostaria de ver o código que trabalhou tambem.... amanha eu posto como ficou o meu.... pois parte ja tem.... logo acima... pois configurei um botao em um form que configura a impressora antes de abrir o relatório... agora vou ver sobre as margens e amanha posto o resultado....

mas por enquanto Tópico resolvido.... e Muito Obrigado mesmo... a todos....

Bom dia Vieira

Claro que não me incomodo.
Caminho = repositório
Bom fim de semana

Link Operante Amigão

Harysohn,

Por favor, converta seu exemplo para o 2003.

Abraços,

Link 2003
http://dl.dropbox.com/u/26441349/ConfiguraRelatorio2003.rar

Saudações

Hary

Tem a certeza que é 2003 ?

`hehehehe

me confundi na hora de compactar.. foi mal.. rsrsrs

http://dl.dropbox.com/u/26441349/ConfiguraRelatorio2003.rar

Obrigado Harysohn

vou analisar agora o seu tb.....

Muito obrigado..

Boa noite pessoal...
Harysohn, Assis, Vieira. Estou postando abaixo como deixei o código. para facilitar a leitura deixarei o que for código em azul.

Private Sub Report_Open(Cancel As Integer)
'Define o tamanho do papel.
Me.Printer.PaperSize = acPRPSEnv10
' substituir o 10 pelo numero em mm que deseja.
Me.Printer.BottomMargin = 10 * 56.7
Me.Printer.TopMargin = 10 * 56.7
Me.Printer.LeftMargin = 10 * 56.7
Me.Printer.RightMargin = 10 * 56.7

End Sub


Primeiramente quero dizer que li e reli cada um dos códigos enviados... no exemplo postado pelo Assis... ainda to na fase de entendimento rsrs... agradeço a todos mais uma vez...

o que eu fiz depois de muito tentar, foi voltar a estaca zero e tentar item por item... pois percebi no exemplo postado que para configurar o relatorio ele abria em mode oculto... logo para configurar ... teria que dar com o relatorio abrindo. ainda.... enfim....

após feito isso e tentado algumas outras coisas... gostaria de pedir mais um favor pois nao sei trabalhar com o comando with...

eu gostaria de definir um tamanho da pagina diferente do existente... entao tentei algo assim:

Private Sub Report_Open(Cancel As Integer)
Me.Printer.PaperSize = acPRPSUser
With PaperSize
.Width = 9 * 56.7
.Height = 4 * 56.7
End With

' substituir o 10 pelo numero em mm que deseja.
Me.Printer.BottomMargin = 10 * 56.7
Me.Printer.TopMargin = 10 * 56.7
Me.Printer.LeftMargin = 10 * 56.7
Me.Printer.RightMargin = 10 * 56.7

End Sub

Ele depura dizendo que o "objeto é obrigatório" - enfim nao entendi o que ele quer de objeto.
depois tentei assim.... tentando adivinhar o que viria a ser o objeto: (linha With)

Private Sub Report_Open(Cancel As Integer)
Dim pps As String


With pps
.Width = 9 * 56.7
.Height = 4 * 56.7
End With
Me.Printer.PaperSize = pps
' substituir o 10 pelo numero em mm que deseja.
Me.Printer.BottomMargin = 10 * 56.7
Me.Printer.TopMargin = 10 * 56.7
Me.Printer.LeftMargin = 10 * 56.7
Me.Printer.RightMargin = 10 * 56.7

End Sub

ele diz que o objeto precisa ser definido como Variant ou Objeto.

entao ao mudar a dim pps as Variant
Pede: "Obejeto obrigatorio" de novo (linha .width = 9*56.7)
mudando para printer
diz metodo ou membro de dados nao encontrado. (linha .width = 9*56.7)

entao por fim tentei assim:


Private Sub Report_Open(Cancel As Integer)

Me.Printer.PaperSize = acPRPSUser
With Me
.Width = 4 * 56.7
.Height = 4 * 56.7
End With

' substituir o 10 pelo numero em mm que deseja.
Me.Printer.BottomMargin = 10 * 56.7
Me.Printer.TopMargin = 10 * 56.7
Me.Printer.LeftMargin = 10 * 56.7
Me.Printer.RightMargin = 10 * 56.7

End Sub

E desta vez ele depura na linha do .Height, mas quando ignoro ela colocando um '... ele nao da erro, mas também nao muda nada....

Mais uma vez agradeço....

Uma parte de um código em VB.. talvez de para adaptar

Private Sub imprime_dados()
Dim tamanhofolha As Integer
Dim i As Integer
'define a fonte e o tamanhao da fonte
Printer.FontName = "Arial"
Printer.FontSize = "10"
tamanhofolha = Printer.ScaleHeight - 1440 'define o tamanho da folha

Em VBA outro exemplo


Public Sub PageToTabloid()

Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

pMxDoc.PageLayout.Page.FormID = esriPageFormTabloid

End Sub

Public Sub PaperToTabloid()

Dim pMxDoc As IMxDocument
Dim pMxApp As IMxApplication
Dim pPrinter As IPrinter
Dim pPaper As IPaper
Dim iFormId As Long
Dim dPaperWidth As Double, dPaperHeight As Double
Dim sFormName As String
Dim pEnumTypeInfo As IEnumNamedID
Dim sTargetForm As String

Set pMxDoc = ThisDocument
Set pMxApp = ThisDocument.Parent
Set pPrinter = pMxApp.Printer
Set pPaper = pPrinter.Paper

' do a non-case-sensitive search for "11 x 17" in the paper sizes
' reported by the printer.
sTargetForm = "11 x 17"
Set pEnumTypeInfo = pPaper.Forms
pEnumTypeInfo.Reset
iFormId = pEnumTypeInfo.Next(sFormName)
Do While (InStr(1, sFormName, sTargetForm, vbTextCompare) < 1) And (iFormId > 0)
Debug.Print "FormID:" & iFormId & vbTab & "FormName:" & sFormName
iFormId = pEnumTypeInfo.Next(sFormName)
DoEvents
Loop
Debug.Print "*** searched for '" & sTargetForm & "'... found:";
Debug.Print " FormID:" & iFormId & vbTab & "FormName:" & sFormName

' exit the subroutine if the target form was not found on the current printer
If iFormId = 0 Then Exit Sub

' if target form was found, assign it's form id to the Paper object
pPaper.FormID = iFormId

' set the page size to match the new paper size
pPaper.QueryPaperSize dPaperWidth, dPaperHeight
pMxDoc.PageLayout.Page.PutCustomSize dPaperWidth, dPaperHeight

' turn Same As Printer on
pMxDoc.PageLayout.Page.FormID = esriPageFormSameAsPrinter
pMxDoc.ActiveView.PrinterChanged pMxApp.Printer

End Sub

Ola Harysohn... tudo bom....

obrigado novamente pela força.... entao nao consegui fazer com que o relatorio fique com o tamanho custom.... Mas tudo bem... eu vou definir um tamanho proximo... e formato de acordo com o tamanho menor.... ja conseguimos definir um tamanho padrao da impressora ao iniciar o relatório... ja nao vai mudar ao mudar de impressora ou mudar de computador.


Obrigado mesmo Harysohn.... eu vou manter assim por enquanto e em breve conseguiremos fazer esta personalização.

Eu acho legal ter a opção de um tamanho personalizado...

Creio que com os códigos ai acima é possivel fazer..

So não tenho tempo de mexer com isso esta semana...

Mas fica o tópico ai.. quando tivermos um tempinho sobrando vamos tentar

Abraços

Sim.... eu vou tentar fazer.... mas vou tentar terminar os relatórios antes de configurar ... mas vou ja estudar o código acima...

Olá
Amigos

Aos que ainda acompanham este tópico, peço-lhes ajuda

Utilizo uma impressora Matrixial Epson FX890 para impressão em papel (formulário contínuo) pré impresso por gráfica. Não consigo configurar a impressora pois não há o tamanho de papel de papel que preciso. Não o achei, também aqui no tópico.

O Formulário Contínuo (papel) tem 15,2cm (altura) X e 21,3 cm (Largura / área de impessão) e mais 1,4cm de serrilhas de cada lado.

Grato

Luiz Gustavo

Luiz,

a) Impressão direta (a mais prática e utilizada normalmente para impressoras matriciais - Como usa um formulário impresso, este é o modo indicado)
b) Criar um novo formato de papel (fomulário) com as medidas que precisa e usa-lo neste relatório. (Se for para seu uso próprio,tudo bem - mas se pretende usar em rede ou em Terceiros, vai ti dar trabalho...)

Olá
Jr.Wano.

Agradeço muito sua manifestação.

Olha, é sim uma impressora matricial. Não será usada em rede. É um sistema muito pequeno e será usado por minha filha que tem uma Micro Empresa. É basicamente um sisteminha para faturamento.

Se puder me orientar, fico-lhe muito adradecido.
Sou novato em Accesse pra priorar, em informática também.
Não sei o que seria uma "impressão direta" e também como fazê-la.
Criar um novo formato de papel (fomulário) com as medidas que preciso, consigo fazer atráves das propriedades da impressora, só que, a danada da impressora Epson LX890 não tem esta opção. Não consigo criar um tamanho de papel personalizado.

Pode me dar uma força?

Obrigado

Luiz Gustavo