Untuk Print menggunakan tombol print dengan bantuan macro VBA,
misal ingin print halaman 1 sampai 5 saja dan di copy 1 lembar
berikut scriptnya
Private Sub DPRINT_Click()
printDari = Sheet4.Cells(2, 2).Value
printSampai = Sheet4.Cells(2, 3).Value
jumHalaman = Sheet4.Cells(2, 4).Value = "1"
If (printDari <> "") And (printSampai <> "") And (jumHalaman <> "") Then
Sheet6.PrintOut From:=printDari, To:=printSampai, copies:=jumHalaman
Else
MsgBox "Isi Halaman yang akan di print"
End If
End SubprintDari = Sheet4.Cells(2, 2).Value
printSampai = Sheet4.Cells(2, 3).Value
jumHalaman = Sheet4.Cells(2, 4).Value = "1"
If (printDari <> "") And (printSampai <> "") And (jumHalaman <> "") Then
Sheet6.PrintOut From:=printDari, To:=printSampai, copies:=jumHalaman
Else
MsgBox "Isi Halaman yang akan di print"
End If
Tinggal di kembangkan saja, improv di userform atau lainya.
Semoga Bermanfaat.