กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
        
           606   4		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        Excel : สั่งพิมพ์หลาย Sheet ต่อ 1 ครั้ง ได้หรือไม่ครับ      
		
    
      อ.สุภาพครับ ผมทำงานใน Excel มีงานอยู่ 5 sheet  ถ้าผมต้องการสั่งพิมพ์ครั้งเดียว 
โดยให้พิมพ์ sheet1 หน้า 1,sheet2 หน้า 1,sheet4 หน้า 1-3 สามารถทำได้หรือไม่ครับ..
    
  โดยให้พิมพ์ sheet1 หน้า 1,sheet2 หน้า 1,sheet4 หน้า 1-3 สามารถทำได้หรือไม่ครับ..
				4 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R04847    
        
  
      อ.สุภาพครับ.. 
1. ถ้าผมสร้าง ปุ่ม 1 ปุ่ม ใน sheet excel แล้วใส่ code ที่ อ. ให้มา
เมื่อกดปุ่มนี้ก็จะพิมพ์ให้ตามต้องการ ใช่หรือเปล่าครับ
2. ผมลองสร้างปุ่มขึ้นแล้ว แต่ไม่สามารถพิมพ์ code ลงไปได้ คือ
พอพิมพ์ๆไป เคอร์เซอร์ ก็เลื่อนตามไป แต่ไม่มีตัวอักษรปรากฏขึ้นมาครับ
ไม่ทราบเป็นเพราะสาเหตุใดครับ
3. ผมยังทำไม่สำเร็จครับ
    
  1. ถ้าผมสร้าง ปุ่ม 1 ปุ่ม ใน sheet excel แล้วใส่ code ที่ อ. ให้มา
เมื่อกดปุ่มนี้ก็จะพิมพ์ให้ตามต้องการ ใช่หรือเปล่าครับ
2. ผมลองสร้างปุ่มขึ้นแล้ว แต่ไม่สามารถพิมพ์ code ลงไปได้ คือ
พอพิมพ์ๆไป เคอร์เซอร์ ก็เลื่อนตามไป แต่ไม่มีตัวอักษรปรากฏขึ้นมาครับ
ไม่ทราบเป็นเพราะสาเหตุใดครับ
3. ผมยังทำไม่สำเร็จครับ
        
    3 @R04852    
        
  
      ใน version 97  
ผมใช้ command button จาก
view/toolbar/controlbox
ในนี้จะมีปุ่ม สลับ mode design/run
 
ที่เครื่องผมปกติดี พิมพ์ข้อความแล้ว ข้อความไม่หายครับ
 
 
 
    
    
  ผมใช้ command button จาก
view/toolbar/controlbox
ในนี้จะมีปุ่ม สลับ mode design/run
ที่เครื่องผมปกติดี พิมพ์ข้อความแล้ว ข้อความไม่หายครับ
        
    4 @R04860    
        
    
      ขอบพระคุณ อ.สุภาพ มากๆครับ  ผมทดสอบไฟล์ที่ อ.ส่งมาให้ได้เรียบร้อยไม่มี 
ปัญหาครับ ..แต่ปัญหาที่ผมเจอก็ยังเหมือนเดิม คือ ผมลองเข้าไปแกะดู code
ในไฟล์ excel ตัวอย่างที่ อ.ส่งมาให้ ก็เข้าไปได้แต่ไม่เห็นตัวหนังสือ หรือ
อักษรใดๆเลย แปลกมาก งง...
    
  ปัญหาครับ ..แต่ปัญหาที่ผมเจอก็ยังเหมือนเดิม คือ ผมลองเข้าไปแกะดู code
ในไฟล์ excel ตัวอย่างที่ อ.ส่งมาให้ ก็เข้าไปได้แต่ไม่เห็นตัวหนังสือ หรือ
อักษรใดๆเลย แปลกมาก งง...
      Time: 0.0613s
    
      
		
Sub Macro5()
Sheets("MELIACEAE").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("ASTERACEAE").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True
End Sub