Блог

Всякий раз, когда я извлекаю свой лист в PDF, он разделяется на 2 страницы. Я хочу, чтобы все было на одной странице… Это мой код:

 Sub SendWorksheet_AsPDFAttachment_OutlookEmail()
    Dim objFileSystem As Object
    Dim strTempFile As String
    Dim oApp        As Object
    Dim oMail       As Object
    
    'Specify the worksheet name
    Sheets("Grille").Activate
    ActiveSheet.UsedRange.Select
    ThisWorkbook.Sheets(Array("Grille")).Select
    
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFile = objFileSystem.GetSpecialFolder(2).Path amp; "" amp; ActiveSheet.Name amp; " in " amp; ThisWorkbook.Name amp; ".pdf"
    
    'export specific sheet as pdf
    ThisWorkbook.Sheets("Grille").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strTempFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    
    'Create a new email
    Set oApp = CreateObject("Outlook.application")
    Set oMail = oApp.CreateItem(0)
    
    'Attach the PDF file
    oMail.Attachments.Add strTempFile
    oMail.Display        '==>display this email
    
    'Delete the temp PDF file
    objFileSystem.DeleteFile (strTempFile)
End Sub