非凡首页|软件资讯|最新更新|下载排行|软件分类|软件专题
您当前位置: 下载首页应用软件扫描打印打印excel强制页面纵向.exe

打印excel强制页面纵向.exe v2.80 扫描打印

  • 软件等级:4 stars.
  • 软件大小:19.17MB
  • 支持语言:简体中文
  • 授权方式:免费版
  • 软件分类:应用软件/扫描打印
  • 官网链接:
  • 更新时间:2025-07-04 06:45:05
  • 运行环境:WinAll
  • 厂商:
关 键 字:
软件介绍 软件截图 软件专题 软件问答 相关文章 相关软件 下载地址

企业办公人员如果经常需要对文档进行打印操作,可以试试小编带来的这款打印excel强制页面纵向.exe软件,这是一个很实用的打印辅助工具,能够帮助用户将各种不同类型和格式的文件生成为纵向的效果,从而让文件实现纵向打印,满足用户的打印需求,只需一键即可转换。

软件功能

主要为快速的将文件夹内的PPT、EXCEL、WORD生成对应的PDF。

PS:印象中如不能转换好像需要安装有office,成品是写定了为纵向也可以改为横向或者不设置。

image.png

使用方法

打开Excel,//点击左上角的表格标志,点击打印,然后选择打印预览,//在打印预览里有个对页面横纵的设置,点击横向,//调整表格的大小,点击缩放比例,缩放调整到大小合适的比例,//接下来选择页面设置,点击页边距,居中方式点击水平和垂直,设置完成后整个表格就能居中了,然后就可以直接打印了。

代码说明

"""

【程序功能】:将【目标文件夹】内所有的 ppt、excel、word 均生成一份对应的 PDF 文件

【作者】:qzw,提供内部使用

【目标文件夹】:默认为此程序目前所在的文件夹;

若输入路径,则为该文件夹(只转换该层,不转换子文件夹下内容)

【生成的pdf名称】:原始名称+.pdf

"""

import os, win32com.client, gc

# Word

def word2Pdf(filePath, words):

# 如果没有文件则提示后直接退出

if(len(words)<1):

print ("⁄n【无 Word 文件】⁄n")

return

# 开始转换

print ("⁄n【开始 Word -> PDF 转换】")

try:

print ("打开 Word 进程...")

word = win32com.client.Dispatch("Word.Application")

word.Visible = 0

word.DisplayAlerts = False

doc = None

for i in range(len(words)):

print(i)

fileName = words[i] # 文件名称

fromFile = os.path.join(filePath, fileName) # 文件地址

toFileName = changeSufix2Pdf(fileName) # 生成的文件名称

toFile = toFileJoin(filePath,toFileName) # 生成的文件地址

print ("转换:"+fileName+"文件中...")

# 某文件出错不影响其他文件打印

try:

doc = word.Documents.Open(fromFile)

doc.SaveAs(toFile,17) # 生成的所有 PDF 都会在 PDF 文件夹中

print ("转换到:"+toFileName+"完成")

except Exception as e:

print(e)

# 关闭 Word 进程

print ("所有 Word 文件已打印完毕")

print ("结束 Word 进程...⁄n")

doc.Close()

doc = None

word.Quit()

word = None

except Exception as e:

print(e)

finally:

gc.collect()

# Excel

def excel2Pdf(filePath, excels):

# 如果没有文件则提示后直接退出

if(len(excels)<1):

print ("⁄n【无 Excel 文件】⁄n")

return

# 开始转换

print ("⁄n【开始 Excel -> PDF 转换】")

try:

print ("打开 Excel 进程中...")

excel = win32com.client.Dispatch("Excel.Application")

excel.Visible = 0

excel.DisplayAlerts = False

wb = None

ws = None

for i in range(len(excels)):

print(i)

fileName = excels[i] # 文件名称

fromFile = os.path.join(filePath, fileName) # 文件地址

print ("转换:"+fileName+"文件中...")

# 某文件出错不影响其他文件打印

try:

wb = excel.Workbooks.Open(fromFile)

for j in range(wb.Worksheets.Count): # 工作表数量,一个工作簿可能有多张工作表

toFileName = addWorksheetsOrder(fileName, j+1) # 生成的文件名称

toFile = toFileJoin(filePath,toFileName) # 生成的文件地址

ws = wb.Worksheets(j+1) # 若为[0]则打包后会提示越界

ws.PageSetup.Orientation=2 # 设置页面方向,纵向=1,横向=2

ws.ExportAsFixedFormat(0,toFile) # 每一张都需要打印

print ("转换至:"+toFileName+"文件完成")

except Exception as e:

print(e)

# 关闭 Excel 进程

print ("所有 Excel 文件已打印完毕")

print ("结束 Excel 进程中...⁄n")

ws = None

wb.Close()

wb = None

excel.Quit()

excel = None

except Exception as e:

print(e)

finally:

gc.collect()

# PPT

def ppt2Pdf(filePath, ppts):

# 如果没有文件则提示后直接退出

if(len(ppts)<1):

print ("⁄n【无 PPT 文件】⁄n")

return

# 开始转换

print ("⁄n【开始 PPT -> PDF 转换】")

try:

print ("打开 PowerPoint 进程中...")

powerpoint = win32com.client.Dispatch("PowerPoint.Application")

ppt = None

# 某文件出错不影响其他文件打印

for i in range(len(ppts)):

print(i)

fileName = ppts[i] # 文件名称

fromFile = os.path.join(filePath, fileName) # 文件地址

toFileName = changeSufix2Pdf(fileName) # 生成的文件名称

toFile = toFileJoin(filePath,toFileName) # 生成的文件地址

print ("转换:"+fileName+"文件中...")

try:

ppt = powerpoint.Presentations.Open(fromFile,WithWindow=False)

if ppt.Slides.Count>0:

ppt.SaveAs(toFile, 32) # 如果为空则会跳出提示框(暂时没有找到消除办法)

print ("转换至:"+toFileName+"文件完成")

else:

print("(错误,发生意外:此文件为空,跳过此文件)")

except Exception as e:

print(e)

# 关闭 PPT 进程

print ("所有 PPT 文件已打印完毕")

print ("结束 PowerPoint 进程中...⁄n")

ppt.Close()

ppt = None

powerpoint.Quit()

powerpoint = None

except Exception as e:

print(e)

finally:

gc.collect()

# 修改后缀名

def changeSufix2Pdf(file):

return file[:file.rfind('.')]+".pdf"

# 添加工作簿序号

def addWorksheetsOrder(file, i):

return file[:file.rfind('.')]+"_工作表"+str(i)+".pdf"

# 转换地址

def toFileJoin(filePath,file):

return os.path.join(filePath,'pdf',file[:file.rfind('.')]+".pdf")

# 开始程序

print ("====================程序开始====================")

print ("【程序功能】将目标路径下内所有的 ppt、excel、word 均生成一份对应的 PDF 文件,存在新生成的 pdf 文件夹中(需已经安装office,不包括子文件夹)")

print ("注意:若某 PPT 和 Excel 文件为空,则会出错跳过此文件。若转换 PPT 时间过长,请查看是否有报错窗口等待确认,暂时无法彻底解决 PPT 的窗口问题。在关闭进程过程中,时间可能会较长,十秒左右,请耐心等待。")

filePath = input ("输入目标路径:(若为当前路径:"+os.getcwd()+",请直接回车)⁄n")

# 目标路径,若没有输入路径则为当前路径

if(filePath==""):

filePath = os.getcwd()

# 将目标文件夹所有文件归类,转换时只打开一个进程

words = []

ppts = []

excels = []

for fn in os.listdir(filePath):

if fn.endswith(('.doc', 'docx')):

words.append(fn)

if fn.endswith(('.ppt', 'pptx')):

ppts.append(fn)

if fn.endswith(('.xls', 'xlsx')):

excels.append(fn)

# 调用方法

print ("====================开始转换====================")

# 新建 pdf 文件夹,所有生成的 PDF 文件都放在里面

folder = filePath + '⁄⁄pdf⁄⁄'

if not os.path.exists(folder):

os.makedirs(folder)

word2Pdf(filePath,words)

excel2Pdf(filePath,excels)

ppt2Pdf(filePath,ppts)

print ("====================转换结束====================")

print ("⁄n====================程序结束====================")

os.system("pause")

软件测评

软件能够对文档进行强制性的页面转换操作,适用于Excel、Word、PPT、PDF等多种格式的文件,让用户可以横向打印文件也能纵向打印文件,提升工作效率。

好了,今天的打印excel强制页面纵向.exe分享就到这里了,想要下载更多软件就来非凡软件站,快快收藏吧,更多精彩不容错过!

软件截图

查看安装过程

打印软件大全

打印软件大全 我们在日常的工作学习中经常需要用到打印的功能,可以将电脑中的文件打印为纸质的,今天小编整理了一些打印软件,可以帮助用户快速进行文件打印的操作,功能丰富多样,大家可以自行挑选。

软件资讯

更多>
  • vmware无法点击任何内容的原因

    vmware无法点击任何内容的原因

    vmware作为一款强大的虚拟化软件,在使用过程中偶尔会出现一些令人头疼的问题,比如无法点击任何内容。这可真是让人抓狂,别急,下面我们就来深入探讨一下可能导致这种情况的原因。一、软件冲突首先,软件冲突是一个常见的原因。当你的系统中安装了其他与vmware不兼容

  • 谷歌浏览器海外版地址是什么

    谷歌浏览器海外版地址是什么

    在网络浏览的世界里,谷歌浏览器无疑是备受瞩目的一款。许多用户都对谷歌浏览器海外版的地址充满好奇,今天就来深入探讨一下相关内容。谷歌浏览器海外版在功能和体验上有着独特之处,吸引着众多用户。其简洁流畅的界面,能让用户快速上手并高效浏览网页。丰富的扩展程序生态系统,

  • 抖音如何用QQ登录

    抖音如何用QQ登录

    在当今数字化的时代,抖音成为了人们生活中不可或缺的一部分。许多小伙伴都希望能够用熟悉的qq账号登录抖音,享受更加便捷的社交体验。那么,抖音怎么使用qq登录呢?下面就为大家详细介绍一下。首先,打开手机中的抖音应用程序。如果你还没有安装抖音,可以在应用商店中搜索“

  • 北京环球度假区app如何购买贵宾卡

    北京环球度假区app如何购买贵宾卡

    想要在北京环球度假区拥有更优质、便捷的游玩体验,贵宾卡是个不错的选择。而通过北京环球度假区app购买贵宾卡,流程简便又高效。首先,打开北京环球度假区app。进入app后,在首页或相关功能板块中,找到“贵宾卡”选项入口。一般来说,它会有比较醒目的标识,方便您快速

  • 百度网盘群组在哪儿找

    百度网盘群组在哪儿找

    想在百度网盘里找到群组,畅享丰富资源?别着急,下面就为你揭开查找百度网盘群组的神秘面纱!利用搜索功能打开百度网盘app,在搜索栏输入你感兴趣的群组关键词,比如热门影视名称、学习资料类别等。输入关键词后,系统会迅速为你呈现相关的群组搜索结果,你可以从中筛选出符合

  • deepseek所有指令汇总

    deepseek所有指令汇总

    deepseek作为一款功能强大的智能助手工具,凭借其丰富的指令系统,能够帮助用户高效地完成各类任务。本文将详细介绍deepseek的指令大全,从内容创作、数据分析、代码编程、故事构思及多轮对话等多个维度展开,旨在帮助用户更好地掌握和使用deepseek。一、

注意事项

本站所有资源(含游戏)均是软件作者、开发商投稿,任何涉及商业盈利目的均不得使用,否则产生的一切后果将由您自己承担!本站将不对任何资源负法律责任,所有资源请在下载后24小时内删除。
如侵犯了您的版权、商标等,请立刻联系我们并具体说明情况后,本站将尽快处理删除,联系版权说明注意事项)。若有关在线投稿、无法下载等问题,请与本站客服人员联系
用户可自行按线路选择相应的下载点,可以直接点击下载/另存为,若直接点击下载速度太慢,请尝试使用高速下载器。为确保下载的文件能正常使用,请使用WinRAR最新版本解压本站软件。
建议大家谨慎对待所下载的文件,大家在安装的时候务必留意每一步!关于360安全卫士QQ电脑管家的有关提示,请自行注意选择操作。