อยากได้ Vba ที่ใช้ปริ้นเอกสารตามเซล์ที่มีข้อมูลกับขอบเขตที่อยากได้ครับ

[kubota]

อยากได้ Vba ที่ใช้ปริ้นเอกสารตามเซล์ที่มีข้อมูลกับขอบเขตที่อยากได้ครับ...
ทีนี้ก็พอหา vba ได้ แต่ยังแก้ให้ทำให้ครบตามที่ต้องการยังไม่ได้

Code: Select all

Sub Print0()
Dim myrange As String
myrange = Cells(Rows.Count, 2).End(xlUp).Address
ActiveSheet.PageSetup.PrintArea = "$h$1:" & myrange
Application.Goto Reference:="R1C1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code...
ActiveSheet.PageSetup.PrintArea = Range("$h$1", myrange)
'Other code...

[kubota]

ขอบคุณ อาจารย์มากครับ...แต่ยังไม่ใช่ที่ต้องการ
สิ่งที่ต้องการคือ ตอนที่กดปุ่ม button(กดเพื่อปริ้น)
ข้อมูลในเซลล์ B5:H10 จะอยู่ส่วนห้วของกระดาษ และ ข้อมูลในเซลล์ K3:M25 อยากให้มาต่อท้าย ข้อมูลในเซลล์ B5:H10
ดังรูปภาพที่แนบมาด้วยครับ

[logic]

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