Nhờ sửa code in 2 bản

[saobekhonglac]

Chào anh/chị.

Nhờ anh/chị sửa giúp em code sau in ra thành 2 bản giúp em (hiện tại chỉ in 1 bản).

Sub Inmau()
num = Sheet2.Range("X8").Value
Sheet2.Range("X8").Value = num + 1
'Sheet1.PrintPreview 'To preview
Sheet2.PrintOut 'To Print
End Sub
Cám ơn.

 

[befaint]

Sheet2.PrintOut Copies:=2

 

[saobekhonglac]

Sheet2.PrintOut Copies:=2

Mình thử ghi macro rồi sưa giống vậy nhưng không được, không lẽ mình in ra pdf nên nó không hiểu, để mình thử lại xem.

 

[befaint]

Mình thử ghi macro rồi sưa giống vậy nhưng không được, không lẽ mình in ra pdf nên nó không hiểu, để mình thử lại xem.

Máy in ảo thì một số không có in nhiều bản.

Ví dụ, trên Windows 10 có máy in ảo "Microsoft Prin to PDF" thì in được nhiều bản.