Здравствуйте. Есть эксель документ с таблицей и шаблоном, с помощью макроса из таблицы в шаблон залетают данные и формируется pdf файл. Если посмотреть в печатном режиме шаблон, то все ок, а в сформированном pdf все съезжает, в чем может быть проблема?
| Код |
|---|
Sub Macros()
NewBook = ""
Path = ThisWorkbook.Path
rw = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To rw
Name_file = Path & "\" & Sheets("Data").Cells(i, 1).Value & Sheets("Data").Cells(2, 11).Value & " " & Sheets("Data").Cells(i, 6).Value & ".xls"
Sheets("Template").Select
Range("NumberPr").Value = Sheets("Data").Cells(i, 1).Value & Sheets("Data").Cells(2, 11).Value
Range("Modification").Value = Sheets("Data").Cells(i, 2).Value
Range("Type").Value = Sheets("Data").Cells(i, 3).Value
Range("FactoryNumber").Value = Sheets("Data").Cells(i, 4).Value
Range("Year").Value = Sheets("Data").Cells(i, 5).Value
Range("Date").Value = Sheets("Data").Cells(i, 6).Value
Range("Temperature").Value = Sheets("Data").Cells(i, 7).Value
Range("Pressure").Value = Sheets("Data").Cells(i, 8).Value
Range("Humidity").Value = Sheets("Data").Cells(i, 9).Value
Range("Voltage").Value = Sheets("Data").Cells(i, 10).Value
Sheets("Template").Copy
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Replace(Name_file, ".xls", ".pdf", , , vbTextCompare), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
' ActiveWorkbook.SaveAs Filename:= _
' Name_file, FileFormat:=xlExcel8, _
' Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
' CreateBackup:=False
NewBook = ActiveWorkbook.Name
Application.DisplayAlerts = True
ThisWorkbook.Activate
Sheets("Data").Select
Workbooks(NewBook).Close False
Application.DisplayAlerts = True
Next i
Application.ScreenUpdating = True
MsgBox ("Success!")
End Sub
|
