Excel VBA ExportAsFixedFormat不打印页边距
Excel VBA ExportAsFixedFormat是一个用于将Excel文件导出为固定格式的方法。它可以将Excel文件以PDF或XPS格式保存到指定的路径。
在使用ExportAsFixedFormat方法时，可以通过设置PageSetup属性来控制打印页边距。PageSetup对象包含了与打印相关的属性，包括页边距、纸张大小、打印方向等。
要设置打印页边距，可以使用PageSetup对象的LeftMargin、RightMargin、TopMargin和BottomMargin属性。这些属性表示左、右、上、下的页边距值，单位为磅（1英寸=72磅）。可以根据需要调整这些属性的值来设置合适的页边距。
以下是一个示例代码，演示如何使用ExportAsFixedFormat方法导出Excel文件并设置打印页边距：
Sub ExportExcelToPDF()
Dim filePath As String
Dim ws As Worksheet
Dim rng As Range
' 设置导出路径
filePath = "C:\path\to\output.pdf"
' 设置工作表和导出范围
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set rng = ws.Range("A1:D10")
' 设置打印页边距
With ws.PageSetup
.LeftMargin = Application.InchesToPoints(0.5) ' 左边距0.5英寸
.RightMargin = Application.InchesToPoints(0.5) ' 右边距0.5英寸
.TopMargin = Application.InchesToPoints(0.5) ' 上边距0.5英寸
.BottomMargin = Application.InchesToPoints(0.5) ' 下边距0.5英寸
End With
' 导出为PDF
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
' 清除设置
With ws.PageSetup
.LeftMargin = Application.InchesToPoints(0.75) ' 默认左边距
.RightMargin = Application.InchesToPoints(0.75) ' 默认右边距
.TopMargin = Application.InchesToPoints(1) ' 默认上边距
.BottomMargin = Application.InchesToPoints(1) ' 默认下边距
End With
End Sub在上述示例代码中，首先设置了导出路径、工作表和导出范围。然后使用With语句设置了打印页边距，这里将左、右、上、下的页边距都设置为0.5英寸。接下来使用ExportAsFixedFormat方法将工作表导出为PDF文件，并指定了导出的文件路径。最后，清除了打印页边距的设置，恢复为默认值。
这是一个简单的示例，你可以根据实际需求调整页边距的数值和其他打印设置。同时，腾讯云提供了云计算相关的产品，如云服务器、云数据库、云存储等，可以根据具体需求选择适合的产品。你可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于腾讯云的产品和服务。
相关·内容
6回答
在excel vba的Pdf中将适配设置为可见
excel、pdf-generation、vba
我正在尝试将excel工作表导出为pdf。有没有什么方法可以用VBA将pdf属性设置为fit to visible。谢谢
下面是我正在使用的代码片段
With wksSalesAndQuotaScoreCard
'.PageSetup.LeftMargin=Application.InchesToPoints(0.7)
.PageSetup.LeftMargin = Application.InchesToPoints(0.7)
.PageSetup.RightMargin = Application.InchesToPoints(0.7
浏览 11提问于2016-10-24得票数 6
2回答
使用VBScript代码更改Excel中的边距
excel、vbscript、vba
我有一个脚本，它当前接受一个Excel文档并将它转换成一个报表(仍然是Excel格式)，分成两张:上传和打印。
上传表显示从原始Excel文档获取的所有信息，并将其过滤到报表的正确列/行中。打印输出工作表接受上传表并对其进行进一步格式化，以便为实际的打印输出做好准备。
问题是，我试图应用方向和边距PageSetup参数，但它只是忽略了它们。无论我做什么，页面格式都不会改变。
主要是，我需要更改这些参数(边距以英寸为单位)：
景观定位
左缘(0.36)
右缘(0.25)
上下边距(0.5)
页眉和页脚边距(0.25)
下面是我认为有一个问题的密码：
'Star
浏览 5提问于2016-06-09得票数 4
回答已采纳
1回答
水平分页符
excel、vba
尝试打印2页高的PDF，在行号"numrows2“处有分页符，但正在接收
With Sheets("offer_Sheet").PageSetup
.PrintArea = ("A2:H" & numrows)
.HPageBreak.Location = ("A: " & numrows2)
.FitToPagesWide = 1
.FitToPagesTall = 2
.LeftMargin = Application.InchesToPoints(0.1)
.Right
浏览 2提问于2018-11-28得票数 0
1回答
C# Excel (2003)互操作-边距不对应于输入值？
c#、excel、interop、margins
我正在使用dotNET C#与Excel 2003通信。我正在尝试更改文档的打印边距，但我输入的值并不对应于Excel随后使用的页边距值。
xls.PageSetup setup = ws.PageSetup;
setup.Orientation = xls.XlPageOrientation.xlLandscape;
//Standard margins (Top - Bottom - Left - Right):
// 2.5 - 2.5 - 1.9 - 1.9
setup.BottomMargin = 1.0;
setup.TopMargin =
浏览 1提问于2013-05-22得票数 3
回答已采纳
1回答
导出到PDF脚本仅导出最后一个工作表
vba、excel
我有一个将工作表内容导出为PDF的Excel VBA脚本。它在单个工作表上工作得很好，但现在我被要求让它包含第二个工作表。但是，使用下面的脚本现在只包括第二个工作表，而不包括第一个工作表。谁能告诉我为什么不包括这两个工作表中的第一个？
Dim sheetsToPrint as Variant(1)
sheetsToPrint(0) = FirstWorksheet.Name
sheetsToPrint(1) = SecondWorksheet.Name
FirstWorksheet.PageSetup.PrintArea = Union(FirstWorksheet.Range("B
浏览 1提问于2018-03-09得票数 0
1回答
Excel:导出到PDF不更新
excel、vba、pdf
我正在尝试让Excel将我的表导出为PDF文件。问题是，它总是用相同的数据导出PDF。添加或删除更多条目都无关紧要。
以下是我与初学者VBA技能结合在一起的代码：
Sub export_pdf()
Dim area As String
area = Range("B3:H1048576").End(xlUp).SpecialCells(xlCellTypeConstants, 3).Address
With ActiveSheet.PageSetup
.PrintTitleRows = "$3:$3"
End With
ActiveSheet.Pa
浏览 4提问于2015-02-28得票数 2
1回答
如何设置Excel代码的固定边距(PDF以2页代替1页打印)
vba、excel、pdf
我有一个Excel文件，它有一个按钮"Generate“，它运行一个宏来打印特定的工作表(让我们称之为”引号“)到PDF中。这张表的页边距是很有限的，在我的电脑中，创建的PDF有一个完美的结构:所有的东西都包含在1页中。然而，在其他一些计算机中，当PDF被创建时，所有内容都不适合于1页，而第2页是用一些内容创建的。下面是代码(包括通过限制边距来解决此问题的尝试)：
Sub Excel_Export_Proposal()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim wsCOTIZACION As Worksheet
Dim Proposa
浏览 10提问于2017-11-22得票数 3
2回答
出口固定格式无纸张尺寸
c#、excel、pdf
我正在尝试使用exportasfixedformat中的C# excel文件导出到一个pdf文件。但是，当转换为pdf文件(列和行)纸张大小时，excel文件太大了。在将excel文件导出到pdf文件时，是否有消除纸张大小的方法？
ws.UsedRange.Font.Size = 5;
ws.UsedRange.Font.Name = "Arial Narrow";
ws.UsedRange.Columns.ColumnWidth = 20;
Range RS;
RS = ws.get_Range("A:A", Type.Missing);
RS.Entir
浏览 1提问于2014-02-07得票数 0
回答已采纳
1回答
Excel VBA ExportAsFixedFormat不打印页边距
vba、pdf、margins
我有一个简单的Sub保存一个范围作为PDF在用户指定的文件夹。问题是它产生的PDF在顶部没有边距。我需要0.25英寸的利润。我哪里做错了？ Private Sub btnPrintJobWorksheet_Click()
Dim folderPath As String, filePath As String, fileName As String, jobNumber, rng As String
Dim ws As Worksheet
'Get the Job Number and create the File Name
jobNumber =
浏览 50提问于2020-04-07得票数 0
回答已采纳
3回答
每页仅打印50行
vba、excel
我有一个工作表，可以选择所有已编辑的单元格并打印它们。我已经将打印选项设置为适合一页，但当我开始打印超过50行时，它变得很小。这是我当前的代码
Dim R As Integer
On Error GoTo 1
R = Range("A65536").End(xlUp).Row
Worksheets("ACM").Range("E1").Font.Color = vbBlack
ActiveSheet.Range(Cells(1, 1), Cells(R, 5)).Select
ActiveSheet.PageSetup.PrintArea
浏览 2提问于2014-03-04得票数 0
2回答
使用Excel宏在一张工作表中创建具有特定范围的PDF
excel、vba
我可以在一个范围内创建pdf，但页数不能标准化。所以有没有可能更新我的宏，以创建4页pdf在我的已知范围内。
Dim fso As Object
Dim s(1) As String
Dim sNewFilePath As String
Dim pg1 As Range
Dim pg2 As Range
Dim pg3 As Range
Dim pg4 As Range
Dim r As Range
Dim ws As Worksheet
Set ws = ActiveSheet
With ws.PageSetup
.LeftMargin = Applicat
浏览 23提问于2020-02-22得票数 1
回答已采纳
2回答
我在Excel中添加了一个运行时错误91
excel、vba、runtime-error、add-in
我花了好几个小时来调试这个。这是一个宏，可以从选定的单元格生成PDF。此代码适用于我的个人工作簿，但当我将其作为外接程序导出时，将其添加到developer选项卡中，然后在外接程序工作簿中再次查看代码，我一直会得到一个运行时错误91: object变量或未设置块变量。任何帮助都将不胜感激！
Sub Save_Selection_As_PDF_sheet()
Dim my_file As String
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0)
浏览 11提问于2021-12-29得票数 1
1回答
无法设置PageSetup的特定属性
vba、excel
With ActiveSheet.PageSetup
.PrintArea = Cells(1, 1).Resize(LR, 16).Address
.Orientation = xlLandscape
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesTo
浏览 0提问于2018-08-01得票数 1
回答已采纳
1回答
循环访问文件夹中的文件
vba、excel、macros
我要格式化当前文件夹中包含不同工作表的每个Excel文件。
此代码将每个文件中每个工作表的页面设置设置为1页宽x 1页高的比例，将页面方向设置为横向，然后将其保存。
我为第一个excel文件的第一个工作表记录了代码：
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunicat
浏览 30提问于2016-07-21得票数 0
3回答
如何执行while循环vba
excel、vba、loops
我编写的代码(如下所示)在B列中找到单词Total，然后将选择的内容导出到PDF。然后，单词Total将被替换为Done。
我正在尝试找到一种方法来重复此代码，直到B列中没有更多的Total。
Columns("B:B").Select
Selection.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, Se
浏览 2提问于2015-04-30得票数 1
1回答
VBA用于使用横向格式将Excel转换为PDF
excel、vba、for-loop、foreach、method-call
我正在尝试将文件夹中的若干excel文件转换为PDF。我已经创建了一个宏，它将excel文件转换为PDF并格式化第一页。
我试图让它为每一页格式化，但我没有任何运气。
我已经为每个循环尝试了一些，但它似乎不起作用。
单元格E4 & E3是位于主宏工作簿第一个工作表中的文件的位置。
有什么建议吗？
Sub Convert_ExceltoPDF()
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim fso As New FileSystemObje
浏览 2提问于2020-10-30得票数 0
回答已采纳
1回答
C# MigraDoc边距大小不正确？
c#、pdf、pdfsharp、margins、migradoc
左边和顶部的边距不是7毫米。为什么？
Document document = new Document();
Section sec = document.AddSection();
sec.PageSetup.PageWidth = Unit.FromMillimeter(210);
sec.PageSetup.PageHeight = Unit.FromMillimeter(297);
sec.PageSetup.LeftMargin = Unit.FromMillimeter(7);
sec.PageSetup.TopMargin = Unit.FromMillimeter(7);
s
浏览 1提问于2016-06-20得票数 0
回答已采纳
1回答
VBA到自动安装，然后在过滤前添加空白。
excel、vba
我有一个命令按钮，它过滤一些数据，然后创建一个PDF打印。目前，我的页面设置为自动调整行高，但是文本感觉太狭窄了，我希望找到一种自动调整的方法，然后添加填充或双倍的高度，使其看起来更干净。到目前为止，我尝试/发现的每一件事一次只会改变一行的高度。
我想做这样的事：
Rows("1:100").AutoFit
Rows("1:100").RowHeight = Rows("1:100").RowHeight * 2
而且，我在这方面非常初学者，只是通过阅读论坛来学习，如果我的解释不够的话，很抱歉。
这就是我目前使用命令按钮所做的事情：
Privat
浏览 5提问于2022-07-19得票数 0
3回答
打印值加上相应单元格的单元格，两行以上。
vba、excel
问:是否有一种方法可以让excel识别最近修改过的单元格或在A列中查看，只需打印到最后输入的数据，而不是打印400页，因为我的公式是D列中的第999行。
我现在有一个工作簿，它让我的团队把数据放进A列，然后宏使用数据从两个源中提取信息，然后在D列中做一个公式。我构建的打印函数询问队友他们放入了多少行数据，然后使用print select选项来选择行加上标题和打印。(它还把今天的日期写在E列中，但我把它隐藏在白色字体中，打印时会变成黑色)。
下面是我现在的代码，谢谢你帮我修改它
Private Sub PrintArea()
Dim Row As Long
On Error GoTo 1
Ro
浏览 5提问于2014-02-19得票数 0
回答已采纳
1回答
Excel中每页固定行数
excel、vba
我目前正在创建一个excel文件，其中有一个报表。此表由VBA脚本填充数据。此外，我还创建了一个按钮，用于将报表导出为PDF。
一切正常工作，直到这个文件打开在另一台电脑上不同的屏幕分辨率。行高，实际字体大小被改变，这导致PDF页面混乱，其中一些有一半的表等等。
是否有任何方法强迫Excel不更改行高，或者可能是另一种方法来固定每个页的行号？
我正在为Office 365使用Excel。
谢谢!
这里有一个我用来生成PDF的脚本
Public Sub SaveResultsToPDF()
Dim wsA As Worksheet
Dim wbA As Workbook
浏览 0提问于2020-03-11得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
