Page 1 of 1
กำลังอยู่ที่หน้าที่เท่าไหร่
Posted: Fri Jul 03, 2020 8:56 am
by mynumnum
ผมมีงานอยู่ 10 หน้า
เวลาแก้ไขงานอยู่หน้าที่ 5
- ต้องการสั่งพิมพ์โดยใช้ VBA
- เงื่อนไขคือให้โปรแกรมหาว่า ณ ตำแหน่งที่ ActiveCell กำลังทำงานอยู่ อยู่หน้าที่เท่าไหร่
ต้องเขียนโค้ดอย่างไรครับ
dim X as integer
X = ?????
Worksheets. ("sheet1").PrintOut From:=1, To:=X, Copies:=1
Re: กำลังอยู่ที่หน้าที่เท่าไหร่
Posted: Sat Jul 04, 2020 8:01 am
by snasui
กรุณาแนบไฟล์ตัวอย่างพร้อม Code ที่เขียนไว้เองมาแล้วด้วยจะได้ช่วยดูได้ครับ
การโพสต์ Code กรุณาใช้รูปแบบตามกติกาข้อ 5 ด้านบน จะได้แตกต่างจากข้อความทั่วไปครับ
Re: กำลังอยู่ที่หน้าที่เท่าไหร่
Posted: Mon Jul 06, 2020 12:33 am
by mynumnum
ขออนุญาตเปลี่ยนสถานการณ์ตัวอย่างตามไฟล์ที่แนบนะครับ
ผมมีฟอร์มอยู่ 3 หน้า
บางทีก็ใช้เพียงแค่ 1 หน้า หรือ 2 หน้า หรือ 3 หน้า
ถ้ากดปุ่มเครื่องพิมพ์ ก็จะสั่งพิมพ์ทั้ง 3 หน้า รวมหน้าที่ไม่ต้องการด้วย (ถ้าใช้เพียงแค่ 1 หรือ 2 หน้า)
จะต้องเพิ่มเติมคำสั่งอย่างไรถึงจะรู้ว่าตัวชี้วัดที่ 14 อยู่หน้าที่ 2 พอกดปุ่มเครื่องพิมพ์เพื่อสั่งพิมพ์ก็ให้พิมพ์แค่ 2 หน้า
Code: Select all
Sub Macro1()
Dim X As Integer
X = ?????
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=X, Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
abc.jpg
Re: กำลังอยู่ที่หน้าที่เท่าไหร่
Posted: Mon Jul 06, 2020 1:09 pm
by puriwutpokin
Re: กำลังอยู่ที่หน้าที่เท่าไหร่
Posted: Tue Jul 07, 2020 8:43 pm
by mynumnum
ขอบคุณครับ จะลองไปศึกษาดูครับ ได้ผลอย่างไร จะมารายงานอีกครั้งครับ
Re: กำลังอยู่ที่หน้าที่เท่าไหร่
Posted: Tue Jul 07, 2020 11:24 pm
by mynumnum
ได้โค้ดตามที่ต้องการแล้ว ขอบคุณครับ
