ที่นี่ฉันจะพูดถึงการพิมพ์หลายแถวที่เลือกในหน้าเดียวด้วย VBA ใน Excel กรุณาดำเนินการดังนี้:

1 กด อื่น ๆ + F11 คีย์พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลการเปิดใหม่

VBA: พิมพ์แถวที่เลือกไว้หลายแถวในหน้าเดียวใน Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3 กด F5 หรือคลิกปุ่ม วิ่ง เพื่อเรียกใช้ VBA นี้

4. ตอนนี้กล่องโต้ตอบ Kutools สำหรับ Excel จะปรากฏขึ้น โปรดเลือกหลายแถวที่คุณจะพิมพ์แล้วคลิก OK เพื่อพิมพ์แถวเหล่านี้

หมายเหตุ: ถือ Ctrl คุณสามารถเลือกแถวที่ไม่อยู่ติดกันหลายแถวพร้อมกันได้

หากเราสามารถคัดลอกแถวที่ไม่ติดต่อกันเหล่านี้และวางเป็นช่วงที่ติดต่อกันในแผ่นงานอื่นเราสามารถพิมพ์ในหน้าเดียวได้อย่างง่ายดาย วิธีนี้จะแนะนำ Kutools for Excel's ช่วงการคัดลอก ยูทิลิตี้ที่จะจัดการกับมัน

1. สร้างแผ่นงานใหม่ถัดไปเลือกแถวที่คุณจะพิมพ์จากตารางของคุณแล้วคลิก Kutools > ช่วง> ช่วงการคัดลอก.

หมายเหตุ: ถือ Ctrl คุณสามารถเลือกแถวที่ไม่ต่อเนื่องกันได้หลายแถวพร้อมกัน

2. ในกล่องโต้ตอบการเปิดคัดลอกหลายช่วงให้เลือก ทั้งหมด ตัวเลือกและคลิกที่ Ok ปุ่ม

หมายเหตุ: รวมถึงความสูงของแถว ตัวเลือกและ รวมถึงความกว้างของคอลัมน์ ตัวเลือกจะคัดลอกความสูงของแถวและความกว้างคอลัมน์ของช่วงที่เลือกและวางลงในช่วงปลายทาง

3. เลือกเซลล์ A1 ในแผ่นงานที่สร้างขึ้นใหม่แล้วคลิก OK ปุ่ม.

4. อยู่ในแผ่นงานปลายทางแล้วคลิก Kutools > ลบ > ลบแถวว่าง > ในแผ่นงานที่ใช้งานอยู่.

จากนั้นกล่องโต้ตอบจะปรากฏขึ้นและแสดงจำนวนแถวที่ถูกลบไปแล้ว เพียงแค่ปิดมัน

5 คลิกที่ เนื้อไม่มีมัน (หรือ ปุ่ม Office)> พิมพ์ เพื่อพิมพ์แถวเหล่านี้

จริงๆแล้ว Kutools สำหรับการออกแบบ Excel พิมพ์ตัวช่วยสร้างการเลือกหลายรายการ เพื่อพิมพ์หลายช่วงพร้อมกันใน Excel

1 คลิก Kutools พลัส > การพิมพ์ > พิมพ์ตัวช่วยสร้างการเลือกหลายรายการ เพื่อเปิด Print Multiple Selection Wizard

2. ในการเปิด Print Multiple Selection Wizard ให้คลิก เพิ่ม ปุ่ม  เพื่อเพิ่มแถวที่คุณจะพิมพ์พร้อมกันแล้วคลิกไฟล์ เสร็จสิ้น ปุ่ม

หมายเหตุ:

(1) หลังจากคลิกไฟล์ เพิ่ม ปุ่ม คุณสามารถเลือกช่วงที่ไม่ต่อเนื่องกันได้หลายช่วงในแผ่นงานเดียวโดยกดปุ่ม Ctrl คีย์จากนั้นเลือกทีละรายการ

(2) ในการลบช่วง / แถวออกจากไฟล์ ช่วงในการพิมพ์ เพียงแค่เลือกช่วง / แถวนี้แล้วคลิกไฟล์ ลบ ปุ่ม.

(3) ยูทิลิตี้นี้ไม่รองรับการพิมพ์ทั้งแถวและคอลัมน์เช่นทั้งแถว $ 4: $ 4หรือทั้งคอลัมน์ของ $ B: $ B.

3. มีการวางแถว / ช่วงที่เลือกเป็นรูปภาพที่เชื่อมโยงในแผ่นงานใหม่ คลิกเลย เนื้อไม่มีมัน (หรือ ปุ่ม Office)> พิมพ์ เพื่อพิมพ์