MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Impressão de Grafico Dinamico

    avatar
    adriano944
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    [Resolvido]Impressão de Grafico Dinamico Empty Impressão de Grafico Dinamico

    Mensagem  adriano944 5/10/2011, 19:52

    Olá Pessoal
    Boa Tarde,

    venho mais uma vez recorrer a voces para escalecer uma duvida minha.
    seguinte..

    tenho um relatorio que possui um subformulario de um grafico dinamico.

    eu consigo imprimir normalmente em pdf com o codigo abaixo, porem o mesmo sai preto e branco além de sair cortando na pagina, como posso fazer com que o grafico saia colorido e a pagina impressa(pdf) saia no formato paisagem.

    qualquer duvida estou a disposição!
    muito obrigado a todos!

    Codigo:

    Function GraficoDinamicoAR()

    Dim strsave As String

    strsave = "GRAFICO DINAMICO AR.PDF"

    'Call the function to print it out
    If PrintReportToPDFGrafico("MODIFICAÇÕES - RELATORIO DINAMICO", strsave) = True Then
    MsgBox "Relatorio Impresso. " & vbCrLf & vbCrLf & _
    Replace(strsave, "\\", "\")
    Else
    MsgBox "Ocorreu um Erro ao Imprimir o relatorio. Entre em Contato com o Administrador", vbCritical, "PDF Failed"
    End If

    End Function

    _______

    Public Function PrintReportToPDFGrafico(strReport As String, strsave As String) As Boolean
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ' Purpose: Print a report to a PDF file
    '
    ' Inputs: strReport Name of report
    ' strSave Name of PDF file to create
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    On Error GoTo ErrHandler

    ' create the registry entry to set PDF path and filename
    WriteRegistryEntry strsave

    ' print the report - CHECK THAT THE PRINTER NAME IS CORRECT!
    Set Application.Printer = Application.Printers("PrintPDF")
    DoCmd.OpenReport strReport, acViewNormal, , , acHidden
    Application.Printer = Nothing

    PrintReportToPDFGrafico = True

    ExitHere:
    Exit Function

    ErrHandler:
    MsgBox err.Description
    Resume ExitHere
    End Function
    _____________

    Public Function WriteRegistryEntryGrafico(strPDF As String)
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ' Purpose: Create a registry file in order to set the name and path
    ' of the PDF file
    '
    ' Reference: Concept developed from post at
    ' http://www.tek-tips.com/viewthread.cfm?qid=1112992
    '
    ' Assumptions: Registry file is created in same folder as current database,
    ' then deleted once it has been merged into the registry
    '
    ' Inputs: strPDF Name of PDF file to create
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Dim strPath As String
    Dim X


    strPath = Left(CurrentDb.name, InStrRev(CurrentDb.name, "\", , vbTextCompare))

    ' make sure reports folder exists
    If Dir(strPath & "Reports\", vbDirectory) = "" Then
    MkDir strPath & "Reports\"
    End If

    ' registry key needs "\\" in file path
    strPDF = strPath & "Reports\" & strPDF
    strPDF = Replace(strPDF, "\", "\\")

    ' delete the registry file if it exists
    On Error Resume Next
    Kill strPath & "CreatePDF.reg"

    ' create the registry file
    On Error GoTo ErrHandler
    Open strPath & "CreatePDF.reg" For Append As #1

    Print #1, "Windows Registry Editor Version 5.00"
    Print #1, ""
    Print #1, "[HKEY_CURRENT_USER\Software\Adobe\Acrobat PDFWriter]"
    Print #1, """PDFFilename""=" & Chr(34) & strPDF & Chr(34)
    Close #1

    ' merge into registry
    X = Shell("regedit.exe /s " & strPath & "CreatePDF.reg", vbHide)


    ExitHere:
    On Error Resume Next
    Close #1
    Kill strPath & "CreatePDF.reg"
    Exit Function

    ErrHandler:
    MsgBox err.Description
    Resume ExitHere
    End Function
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Impressão de Grafico Dinamico Empty Re: [Resolvido]Impressão de Grafico Dinamico

    Mensagem  vieirasoft 13/10/2011, 21:40

    Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Impressão de Grafico Dinamico Empty Re: [Resolvido]Impressão de Grafico Dinamico

    Mensagem  vieirasoft 17/10/2011, 21:40

    Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

    Conteúdo patrocinado


    [Resolvido]Impressão de Grafico Dinamico Empty Re: [Resolvido]Impressão de Grafico Dinamico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 09:43