Public Sub ImprimeDocPDF(TipoDoc As String, NumDoc As Long, Modelo As String, SerieDoc As String, varcaminho As String)
    Dim PSO As StdPlatBS
    Dim objConfPlat As StdBSConfApl
    Dim strMapa As String
    Dim StrSF As String
    Dim strFormula As String
    Dim strAssinatura As String
    Dim strInicializaParametros As String
    Dim Nome As String
    Dim Morada As String
    Dim Localidade As String
    Dim CodPostal As String
    Dim Telefone As String
    Dim Fax As String
    Dim Contribuinte As String
    Dim CapitalSocial As String
    Dim Conservatoria As String
    Dim Matricula As String
    Dim MoedaCapitalSocial As String

    objConfPlat = New StdBSConfApl
    objConfPlat.AbvtApl = "GCP"
    objConfPlat.Instancia = "DEFAULT"
    objConfPlat.Utilizador = "utilizador"
    objConfPlat.PwdUtilizador = "PASSWORD"

    objConfPlat.LicVersaoMinima = "9.00"


    Dim objTrans As StdBETransaccao
    objTrans = New StdBETransaccao

    PSO = New StdPlatBS
    PSO.AbrePlataformaEmpresa(cmdarg(1), objTrans, objConfPlat, EnumTipoPlataforma.tpProfissional, "")

    strMapa = "nomereport"

    StrSF = "{CabecDoc.TipoDoc}='" & TipoDoc & "' AND {CabecDoc.Serie}='" & SerieDoc & "' AND {CabecDoc.NumDoc}=" & NumDoc
    PSO.Mapas.Inicializar("GCP")

    Nome = PSO.Contexto.Empresa.IDNome
    Morada = PSO.Contexto.Empresa.IDMorada
    Localidade = PSO.Contexto.Empresa.IDLocalidade
    CodPostal = PSO.Contexto.Empresa.IDCodPostal & "  " & PSO.Contexto.Empresa.IDCodPostalLocal
    Telefone = PSO.Contexto.Empresa.IDTelefone
    Fax = PSO.Contexto.Empresa.IDFax
    Contribuinte = PSO.Contexto.Empresa.IFNIF
    CapitalSocial = PSO.Contexto.Empresa.ICCapitalSocial
    Conservatoria = PSO.Contexto.Empresa.ICConservatoria
    Matricula = PSO.Contexto.Empresa.ICMatricula
    MoedaCapitalSocial = PSO.Contexto.Empresa.ICMoedaCapSocial

    strFormula = "StringVar Nome:='" & Nome & "';" &
                 "StringVar Morada:='" & Morada & "';" &
                 "StringVar Localidade:='" & Localidade & "';" &
                 "StringVar CodPostal:='" & CodPostal & "';" &
                 "StringVar Telefone:='" & Telefone & "';" &
                 "StringVar Fax:='" & Fax & "';" &
                 "StringVar Contribuinte:='" & Contribuinte & "';" &
                 "StringVar CapitalSocial:='" & CapitalSocial & "';" &
                 "StringVar Conservatoria:='" & Conservatoria & "';" &
                 "StringVar Matricula:='" & Matricula & "';" &
                 "StringVar MoedaCapitalSocial:='" & MoedaCapitalSocial & "';"

    strAssinatura = Motor.Comercial.Vendas.DevolveTextoAssinaturaDoc(TipoDoc, SerieDoc, NumDoc, "000")

    strInicializaParametros =
        "NumberVar TipoDesc;" &
        "NumberVar DecQde;" &
        "NumberVar DecPrecUnit;" &
        "StringVar  MotivoIsencao;" &
        "BooleanVar UltimaPag;" &
        "StringVar PRI_TextoCertificacao;" &
        "TipoDesc:= 0;" &
        "DecQde:=3;" &
        "DecPrecUnit:=" & PSO.FuncoesGlobais.DaCasasDecimais("Moedas", "DecArredonda") & ";" &
        "MotivoIsencao:='" & Motor.Contexto.IFMotivoIsencao & "';" &
        "UltimaPag := False;" &
        "PRI_TextoCertificacao:='" & strAssinatura & "';"

    PSO.Mapas.SetFormula("DadosEmpresa", strFormula)
    PSO.Mapas.SetFormula("InicializaParametros", strInicializaParametros)

    'PSO.Mapas.Destino = CRPEExportDestino.edFicheiro
    'PSO.Mapas.Destino = CRPEExportDestino.edNoExport
    'PSO.Mapas.SetFileProp(CRPEExportFormat.efPdf, "c:/temp/DOCUMENTOAGORA.PDF")
    PSO.Mapas.SetFormula("DadosEmpresa", strFormula)
    PSO.Mapas.ImprimeListagem(strMapa, "Impressão de documentos em PDF", "W", , "S", StrSF, , , , , True)
    PSO.Mapas.TerminaJanelas()
End Sub