Всем доброго времени суток.
У меня есть код, который сохраняет открытую книгу в pdf-файл. В самом файле есть картинки с прозрачностью, и если экспортировать в pdf, то прозрачность в этих картинках теряется, что является критичным.
Если же отправлять в "Microsoft Print to PDF", то всё сохраняется как надо. Помогите, пожалуйста допилить вот этот код для отправки "Microsoft Print to PDF":
Если я не туда копаю - подскажите, пожалуйста
У меня есть код, который сохраняет открытую книгу в pdf-файл. В самом файле есть картинки с прозрачностью, и если экспортировать в pdf, то прозрачность в этих картинках теряется, что является критичным.
Если же отправлять в "Microsoft Print to PDF", то всё сохраняется как надо. Помогите, пожалуйста допилить вот этот код для отправки "Microsoft Print to PDF":
Код |
---|
Sub PDFActiveSheet() Dim wsA As Worksheet Dim wbA As Workbook Dim strTime 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 errHandler Set wbA = ActiveWorkbook Set wsA = ActiveSheet strTime = Format(Now(), "ddmmyyyy\_hhmm") 'get active workbook folder, if saved strPath = wbA.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" 'replace spaces and periods in sheet name strName = Replace(wsA.Name, " ", "") strName = Replace(strName, ".", "_") 'create default name for savng file strFile = strName & "_" & strTime & ".pdf" strPathFile = strPath & strFile 'use can enter name and ' select folder for file myFile = Application.GetSaveAsFilename _ (InitialFileName:=strPathFile, _ FileFilter:="PDF-файлы (*.pdf), *.pdf", _ Title:="Выбор папки и имени файла") 'export to PDF if a folder was selected If myFile <> "False" Then wsA.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False 'confirmation message with file info MsgBox "PDF-файл создан: " _ & vbCrLf _ & myFile End If |