Page 1 of 1
อยากได้ Vba ที่ใช้ปริ้นเอกสารตามเซล์ที่มีข้อมูลกับขอบเขตที่อยากได้ครับ
Posted: Thu May 10, 2018 12:49 pm
by 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
Re: อยากได้ Vba ที่ใช้ปริ้นเอกสารตามเซล์ที่มีข้อมูลกับขอบเขตที่อยากได้ครับ
Posted: Thu May 10, 2018 9:52 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other code...
ActiveSheet.PageSetup.PrintArea = Range("$h$1", myrange)
'Other code...
Re: อยากได้ Vba ที่ใช้ปริ้นเอกสารตามเซล์ที่มีข้อมูลกับขอบเขตที่อยากได้ครับ
Posted: Fri May 11, 2018 11:20 am
by kubota
ขอบคุณ อาจารย์มากครับ...แต่ยังไม่ใช่ที่ต้องการ
สิ่งที่ต้องการคือ ตอนที่กดปุ่ม button(กดเพื่อปริ้น)
ข้อมูลในเซลล์ B5:H10 จะอยู่ส่วนห้วของกระดาษ และ ข้อมูลในเซลล์ K3:M25 อยากให้มาต่อท้าย ข้อมูลในเซลล์ B5:H10
ดังรูปภาพที่แนบมาด้วยครับ
Re: อยากได้ Vba ที่ใช้ปริ้นเอกสารตามเซล์ที่มีข้อมูลกับขอบเขตที่อยากได้ครับ
Posted: Fri May 11, 2018 2:51 pm
by logic
แบบนั้นต้องมีชีตช่วย คัดลอกทั้งสองส่วนไปวางเรียงกันตามที่เขียนมาแล้วค่อยสังพิมพ์ ลองบันทึกดูก็น่าจะได้ครับ
