untuk Print menggunakan tombol print dengan bantuan macro VBA,
misal ingin print halaman 1 sampai 3 saja dan di copy 1 lembar
berikut scriptnya
Private Sub DPRINT_Click()
printDari = Sheet4.Cells(2, 15).Value
printSampai = Sheet4.Cells(2, 16).Value
jumHalaman = Sheet4.Cells(2, 17).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
printDari = Sheet4.Cells(2, 15).Value
printSampai = Sheet4.Cells(2, 16).Value
jumHalaman = Sheet4.Cells(2, 17).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 Sub