Блог

Главная - Вопросы по программированию - Макрос для экспорта XLSM-файла в PDF без отключения

Макрос для экспорта XLSM-файла в PDF без отключения

#excel #vba

#excel #vba

Вопрос:

У меня есть макрос для экспорта моего файла XLSM в PDF, но когда я запускаю код, вы почти ничего не видите из-за отключения в версии PDF.

это мой код:

 Sub ExporterPDF():

Dim wsA As Worksheet
Dim wbA As Workbook
Dim strDate As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant

 
On Error GoTo Erreur


Set wbA = ActiveWorkbook
Set wsA = ActiveSheet


'Récupérer le chemin d'accès du fichier
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath amp; ""

 
'Créer nom du fichier pour la sauvegarde
strDate = Format(Now(), "yyyymmdd")
strName = "TableauBord"
strFile = strDate amp; "_" amp; strName amp; ".pdf"
strPathFile = strPath amp; strFile

 

'Sélectionner répertoire pour sauvegarde
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Enregistrez sous...")

 

'Enregistrer le PDF si un répertoire a été sélectionné
If myFile <> False Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'Message de confirmation
    MsgBox "Le fichier PDF a bien été enregistré : "
End If


Done:
    Exit Sub
Erreur:
    MsgBox "Le fichier PDF n'a pu être créé."
    Resume Done
    
End Sub

Как поместить все в PDF-файл ?! Любая помощь приветствуется. большое спасибо всем за чтение!

Комментарии:

1. Вы пытались установить значение Margins Narrow на Page Layout вкладке?

2. Я попробовал это сделать, но ничего не вышло. Тот же результат…

Ответ №1:

Попробуйте это:

 'Enregistrer le PDF si un répertoire a été sélectionné
If myFile <> False Then
    wsA.PageSetup
        .PrintArea = wsa.Range("A1:E10")
        .FitToPagesTall = 1
        .FitToPagesWide = 1
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.4)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
    End With
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'Message de confirmation
    MsgBox "Le fichier PDF a bien été enregistré : "
End If
Метки: