กฏกติกาของฟอรัม : แจ้งชื่อและนามสกุลจริงในการสมัครสมาชิก--ตั้งชื่อกระทู้ให้ตรงกับปัญหาที่ถาม--เขียนอธิบายคำถามทั้งในตัวกระทู้และในแฟ้มแนบให้ละเอียด--ห้ามใช้คำว่า อ่ะ คับ หรือคำผวน หรือคำที่ไม่มีในพจนานุกรมไทย--โปรดตั้งชื่อแฟ้มให้สื่อถึงปัญหาที่ถาม--อย่าระบุชื่อให้คนใดคนหนึ่งเป็นผู้ตอบ--งดให้ความร่วมมือหรือช่วยตอบคำถาม กระทู้ที่ละเมิดกฏกติกาของฟอรัม
Results 1 to 4 of 4

Thread: อยากสั่งปริ้นซ์รายงานใน Exccel โดยเขียนโค้ดVBA

  1. #1

    Join Date
    Nov 2007
    Location
    นครราชสีมา
    Job
    นักศึกษษฝึกงาน
    Version
    Excel 2003 / Windons server 2003 Standard Edition
    Posts
    2

    Icon11 อยากสั่งปริ้นซ์รายงานใน Exccel โดยเขียนโค้ดVBA

    อยากทราบโค้ดในการเขียนคำสั่งปริ้นซ์รายงานที่ทำค่ะ คือเพิ่งใช้งานExcelที่มีการเขียนโค้ดด้วยVBA
    ก็เลยอยากขอความกรุณาช่วยหน่อยนะค่ะ
    ขอบคุณค่ะ

  2. #2
    Forum Admin สมเกียรติ's Avatar
    Join Date
    May 2007
    Location
    Excel Expert Training
    Job
    MS Excel Instructor
    Version
    Excel 2010/Windows 7
    Posts
    7,073
    Blog Entries
    5

    Default

    ฝึกใช้ Tools > Macro > Record New Macro เพื่อสั่งพิมพ์ครับ ไม่ต้องเขียนเองหรอก

  3. #3
    Excel Expert Volunteer worachai_p's Avatar
    Join Date
    May 2007
    Location
    กรุงเทพฯ
    Job
    งานบัญชี,Internal Audit,ที่ปรึกษาวางระบบงานบัญชี,ERP,ระบบงานภายในองค์กร
    Version
    Excel 2003, 2007,2010/ Windows XP SP3
    Posts
    315
    Blog Entries
    1

    Default

    ขอแนะนำ Code VBA ที่ผมทำอยู่นะครับ โดยให้เขียนกำหนดช่วงการพิมพ์แล้วใส่โค๊ด
    ตามนี้ต่อท้ายดู เพราะผมลองทำจากการลองผิดลองถูกแล้วปรากฎว่าได้ตามที่ต้องการครับ
    (ปล. มือใหม่หัดเขียน)
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    ถ้าไม่ได้อย่างไรก็รอคำแนะนำจากท่านอื่นเพิ่มเติมครับ

  4. #4

    Join Date
    May 2007
    Location
    นครศรีธรรมราช อ.ขนอม ต.ท้องเนียน ปช
    Job
    วางแผน
    Version
    Excel 2010/Window7
    Posts
    69

    Default

    เรียน อาจารย์สมเกียรติ อาจารย์อรวี และอาจารย์ท่านอื่น ๆ ทุกท่าน
    การสั่งพริ้นให้ง่ายต่อการนำไปใช้ ก่อนที่จะเขียน CODE น่าจะทำดังนี้
    1.กำหนดพื้นที่พิมพ์ ของsheet โดย คลิกที่ชีทต้องการพิมพ์ เลือกพื้นที่ต้องการพิมพ์ > แฟ้ม > พื้นที่การพิมพ์>กำหนดพื้นที่พิมพ์
    2.แทปเครื่องมือ>มาโคร>Visual Basic Editor>Module แล้วเขียนมาโคร ดังนี้
    Sub printout_2()
    Application.ScreenUpdating = False
    Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("ใส่ชื่อชีทที่กำหนดไว้ตามข้อ1").Select
    Application.ScreenUpdating = True
    End Sub
    3.สร้างปุ่มแล้วกำหนดมาโคร
    4.คลิกปุ่มก็จะพิมพ์ตามต้องการ

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •