Excel Forum

รบกวนขอวิธี
ให้รันตัวเลขอัตโนมัติเมื่อสั่งพิมพ์ครับในเอกสาร Word

โดยสามารถสั่งพิมพ์แบบระบุช่วง เช่น เลขที่บัตร 00145-00160 เนื่องจากบางครั้งกระดาษจะติดหรือเลอะหมึก จึงอาจจะต้องพิมพ์ซ้ำหลายหน้า

ขอบคุณครับ

อ้างอิงจาก โพสด้านล่างครับ
http://www.snasui.com/viewtopic.php?t=328

กระทู้ที่ยกมาเขียนด้วย vba

มีกติกาว่าต้องเขียนมาเองก่อนน่ะครับ ติดส่วนไหนค่อยนำมาถามกันครับ

ทำได้แล้วครับ

แต่ติดปัญหาว่าเวลา print จะกำหนดให้ Print Both Sides อย่างไรครับ
รบกวนชี้แนะด้วยครับ

แนบไฟล์ที่ติดปัญหาพร้อม Code มาด้วยจะได้ช่วยดูต่อไปจากนั้นครับ

ขอความกรุณาด้วยครับ
ตามไฟล์แนบครับ

Code: ด้านล่างนี้ครับ

Private Sub CommandButton1_Click()

Dim i As Integer
Dim a As Integer
Dim v As Integer
Dim ii As String
On Error Resume Next
v = InputBox( _
Title:="ÃкةºÑº·ÕèàÃÔèÁ", _
prompt:="¡ÃÍ¡ËÁÒÂàÅ¢©ºÑºàÃÔèÁ¾ÔÁ¾ì")
a = InputBox( _
Title:="ÃкةºÑºÊÔé¹ÊØ´", _
prompt:="¡ÃÍ¡ËÁÒÂàÅ¢©ºÑºÊØ´·éÒ·Õèµéͧ¡ÒþÔÁ¾ì")
If Err = 13 Then
MsgBox "â»Ã´¡ÃÍ¡¢éÍÁÙÅ·Ñ駩ºÑº·ÕèàÃÔèÁáÅЩºÑº·ÕèÊÔé¹ÊØ´"
Exit Sub
End If

MsgBox "The name of the active printer is " & ActivePrinter

With ActiveDocument
.Shapes(1).Visible = msoFalse
'.PrintOut Background:=False

ActiveDocument.PrintPreview

For i = v To a
ActiveDocument.Range("27", "32").Select

MsgBox Selection.Text
ii = i
ii = CStr(i)

ii = Format(ii, "00000")

Selection.Text = ii

ActiveDocument.PrintOut
Next i

.Shapes(1).Visible = msoTrue
End With

End Sub

การสั่งพิมพ์สองหน้าใน Word ดูตัวอย่างที่นี่ครับ Duplex Printing

สำหรับการ Post Code ให้ดูตัวอย่างการวาง Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ผมอ่านตามที่แนะนำมาแล้วแต่ ไม่เข้าใจหลักการเลยครับ
อยากได้ code ที่กำหนดให้ print แบบหน้าหลัง ก็พอครับ

Link ที่ผมแนบไปนั้นสำหรับ Print 2 หน้าใน Word ครับ

การ Print 2 หน้าใน Word ด้วยการเขียน Code ไม่ใช่เรื่องง่าย ทาง Developer ได้ใช้ API Function ซึ่งเป็นการเรียกใช้ความสามารถของ Windows เข้ามาช่วยครับ