Selamat sore,

Pak Anwar, saya mau urun rembug,
berikut macronya saya sertakan

pada macro ini juga sebebarnya bisa diset untuk print formatnya, atau bisa di 
set di luar,

yang wajib di define adalah area print nya supaya ngeprintnya bisa tepat pada 
tempat yang dimaksud

regards,
andara


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/17/2009 by Andara
'
'
    Sheets("Sheet2").Visible = True
    Sheets("Sheet3").Visible = True
    Sheets("Sheet4").Visible = True
    
    Sheets("Sheet3").Select
    Range("B2:F20").Select
    Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
    Sheets("Sheet3").Select
    Range("B2:F20").Select
    Selection.PrintOut Copies:=1, Collate:=True
    Sheets("Sheet2").Select
    Selection.PrintOut Copies:=1, Collate:=True
    
    Sheets(Array("Sheet2", "Sheet3", "Sheet4")).Select
    Sheets("Sheet2").Activate
    ActiveWindow.SelectedSheets.Visible = False
    Range("A1").Select
End Sub




________________________________
From: Anwar <[email protected]>
To: [email protected]
Sent: Tuesday, February 17, 2009 2:15:39 PM
Subject: ]] XL-mania [[ Mencetak Sheet yg hiden


Para suhu Excel yg jenius, tolongin bantu kesulitan saya dung…
 
Saya ingin sheet2 s/d sheet4 disembunyikan, 
tapi saat aku tekan tombol "print" langsung bisa cetak  print area dlm sheet2 
s/d sheet4 tsb tanpa harus melihatnya, 
bisa gak yaa? 
NB: tlg macronya kl bisa jangan diprotect ya biar sy jg bisa belajar 
ngembanginnya. . J
 
Thx be4 n' regards
Yanan



      

Kirim email ke