locked
Trocar a Font (Letra) padrao do access. RRS feed

  • Pergunta

  • Boa tarde,

    criei uma aplicação que exporta consultas do acess para o excel, e esta ocorrendo o seguinte problema:
        * a exportação ocorre tudo certo mas a fonte aparece no excel com uns caracteres estranhos nas letras com acento e ç, verifiquei que é porque a fonte da consulta é  SEGOE UI e a que ele leva pra o Excel é calibri, veja os comandos que faço para exportar.


        Dim stDocName As String
        Dim stCaminho As String
       
        'Escolhe onde os arquivos vão ser salvos
        CommonDialog1.DialogTitle = "Diretório de Destino"
        CommonDialog1.Flags = cdlOFNFileMustExist
        CommonDialog1.Filter = "*.xls"
        CommonDialog1.ShowSave
       
        'cria as variaves com a consulta que deve ser exportada e o caminho onde deve ser salvo
        stDocName = Lista3.Value
        stCaminho = CommonDialog1.FileName + ".xls"
        
       
        'comando que exporta para excel
         DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, stCaminho, True

    gostaria de configurar as fontes antes de fazer a exportação e depois voltar para o que estava, exemplo

    Set font to "ARIAL"

    comandos que exporta

    Set font to "fonte que estava antes de eu mudar para arial"

    tem como fazer isso?


    ATT,
    Samir
    quarta-feira, 20 de maio de 2009 19:54

Todas as Respostas

  • Você conseguiu resolver esse problema?

    Estou com o mesmo problema. Quando exporto um relatório do access para o excel via OutputTo (VBA) ele sai com esses mesmo caracteres estranhos!!


    Sds,

    quinta-feira, 29 de outubro de 2009 19:46
  • O caminho para resolver é abrir o arquivo do Excel (por meio de automação VBA) e mudar a fonte:

    Sub ChangeFontXL()
    Dim xlWkb As Object
    Dim xlWks As Object
    Dim xlRng As Object
    Dim strPath As String

    strPath = "C:\Users\luiz.rocha\Desktop\Book1.xlsx"
    Set xlWkb = GetObject(strPath)
    Set xlWks = xlWkb.Worksheets(1)
    Set xlRng = xlWks.UsedRange
    xlRng.Font.Name = "Times New Roman"
    End Sub


    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    sexta-feira, 30 de outubro de 2009 21:52
    Moderador