ไปยังเนื้อหาหลัก

วิธีพิมพ์หลายรายการในหน้าเดียวใน Excel

หากคุณมีแผ่นงานขนาดใหญ่ซึ่งมีข้อมูลจำนวนมากและตอนนี้คุณต้องการพิมพ์ช่วงที่เลือกซึ่งไม่ต่อเนื่องในหน้าเดียวเพื่อให้คุณสามารถประหยัดกระดาษได้มาก Excel ให้ไฟล์ ตั้งค่าพื้นที่การพิมพ์ คุณลักษณะสำหรับเราในการพิมพ์การเลือกหลายรายการพร้อมกัน แต่ช่วงที่เลือกแต่ละช่วงจะพิมพ์เป็นหน้าเดียวแยกกัน บทความนี้จะพูดถึงวิธีการพิมพ์การเลือกที่ไม่ต่อเนื่องหลายรายการในหน้าเดียว

พิมพ์หลายรายการจากแผ่นงานเดียวในหน้าเดียวด้วยรหัส VBA

พิมพ์หลายรายการจากแผ่นงานเดียวหรือหลายแผ่นในหน้าเดียวด้วย Kutools for Excel


พิมพ์หลายรายการจากแผ่นงานเดียวในหน้าเดียวด้วยรหัส VBA

หากต้องการพิมพ์แผ่นงานหนึ่งแผ่นที่เลือกไว้หลายแผ่นในหน้าเดียวรหัส VBA ต่อไปนี้อาจช่วยคุณได้โปรดดำเนินการดังนี้:

1. กด Ctrl เพื่อเลือกช่วงที่คุณต้องการพิมพ์

2. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: พิมพ์การเลือกหลายรายการในหน้าเดียว

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และช่วงที่คุณเลือกจะถูกพิมพ์พร้อมกันและจะพิมพ์เป็นหน้าเดียว


พิมพ์หลายรายการจากแผ่นงานเดียวหรือหลายแผ่นในหน้าเดียวด้วย Kutools for Excel

รหัสด้านบนสามารถช่วยคุณในการพิมพ์ช่วงที่เลือกจากแผ่นงานเดียวเท่านั้นหากคุณต้องการให้พิมพ์การเลือกหลายชุดจากหลายแผ่นงานลงในหน้าเดียวรหัสข้างต้นจะไม่ทำงาน โปรดอย่ากังวลที่นี่ฉันสามารถแนะนำเครื่องมือที่มีประโยชน์ - Kutools สำหรับ Excelเดียวกันกับที่ พิมพ์ตัวช่วยสร้างการเลือกหลายรายการ ยูทิลิตี้คุณสามารถพิมพ์การเลือกจากแผ่นงานเดียวหรือหลายแผ่นงานลงในหน้าเดียวพร้อมกัน

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามขั้นตอนต่อไปนี้:

1. คลิก Kutools พลัส > การพิมพ์ > พิมพ์ตัวช่วยสร้างการเลือกหลายรายการดูภาพหน้าจอ:

2. ใน พิมพ์ตัวช่วยสร้างการเลือกหลายรายการคลิกปุ่มเพิ่มเอกสาร เพื่อเลือกและเพิ่มช่วงที่คุณต้องการพิมพ์ลงในกล่องรายการช่วงที่จะพิมพ์ทีละรายการ (คุณสามารถเลือกช่วงจากแผ่นงานเดียวหรือหลายแผ่นงาน) คลิก ปุ่มลบเอกสาร ปุ่มสามารถลบช่วงที่คุณไม่ต้องการดูภาพหน้าจอ:

doc พิมพ์หลายตัวเลือก 2

3. หลังจากเพิ่มรายการที่เลือกลงในกล่องรายการโปรดคลิก ถัดไป >> เพื่อไปที่ขั้นตอนที่ 2 ของวิซาร์ดระบุการตั้งค่าการพิมพ์ตามที่คุณต้องการและคุณสามารถเพิ่มแถวว่างระหว่างช่วงที่เลือกโดยทำเครื่องหมาย เพิ่มแถวว่างระหว่างช่วง ตัวเลือกดูภาพหน้าจอ:

doc พิมพ์หลายตัวเลือก 3

4. จากนั้นไปที่คลิก ถัดไป >> ในขั้นตอนที่ 3 ของตัวช่วยสร้างระบุการดำเนินการสำหรับแผ่นงานชั่วคราวคุณสามารถใช้งานแผ่นงานได้ แต่ไม่ต้องพิมพ์พิมพ์แผ่นงานและเก็บไว้หรือพิมพ์แผ่นงานและลบออก ดูภาพหน้าจอ:

doc พิมพ์หลายตัวเลือก 4

5. คลิก เสร็จสิ้น ช่วงที่เลือกทั้งหมดถูกวางลงในแผ่นงานใหม่เป็นวัตถุรูปภาพที่เชื่อมโยง และคุณสามารถลากและจัดเรียงใหม่ในแผ่นงานได้ ดูภาพหน้าจอ:

doc พิมพ์หลายตัวเลือก 5

6. เมื่อคุณพิมพ์เวิร์กชีตใหม่นี้ช่วงต่างๆจะถูกพิมพ์เป็นหน้าเดียวตามที่คุณต้องการ

คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับยูทิลิตี้ Print Multiple Selection Wizard

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


การสาธิต: พิมพ์การเลือกหลายรายการจากหนึ่งหรือหลายแผ่นงานในหน้าเดียวด้วย Kutools for Excel

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to print selection area with multi print ? i means selection area i wan to print 10 times
This comment was minimized by the moderator on the site
I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined. This line is highlighted: Set xRng1 = xNewWs.Cells(xIndex, 1)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations