PRINT & SAVE

  1. tahun lalu

    kalo

    sub print()
    activesheet.printout
    end sub


    itu untuk print, bagaimana caranya biar sekalian save document
    makasih

  2. Caton

    30 Jun 2017 Terverifikasi Indonesia + 11.512 Poin

    Setelah baris kode ActiveSheet.PrintOut, bisa ditambahkan salah satu baris kode (fungsi) berikut:

    • ActiveSheet.Parent.Save
    • ActiveWorkbook.Save
    • ThisWorkbook.Save
  3. 6 minggu lalu

    @Caton Setelah baris kode ActiveSheet.PrintOut, bisa ditambahkan salah satu baris kode (fungsi) berikut:

    • ActiveSheet.Parent.Save
    • ActiveWorkbook.Save
    • ThisWorkbook.Save

    Mas, jadi print hanya bisa dilakukan pada sheet yang sedang aktif yah? Misalnya saya membuat sheet 1 , tapi saya ingin melakukan print pada sheet 2 melalui userform . Itu bagaimana yang mas ?

  4. Caton

    Agu 14 Terverifikasi Indonesia + 11.512 Poin

    Mas @Evan D. Nugraha ...

    ... jadi print hanya bisa dilakukan pada sheet yang sedang aktif yah ...

    Tidak benar. Bisa dilakukan dari sheet berbeda. Kecuali sheet target dalam keadaan tersembunyi ...

    ... Misalnya saya membuat sheet 1 , tapi saya ingin melakukan print pada sheet 2 melalui userform. Itu bagaimana yang mas ?

    Sudah dicoba belum? Harusnya dicoba dahulu mas, misalkan dengan tahapan:

    [1]. Matikan saja printernya dahulu ...
    [2]. Atur area cetak (Print Area) pada Sheet 1
    [3] Isi sembarang teks pada Sheet 1
    [4] Tambahkan UserForm

    Kemudian tambahkan script semisal:

    Private Sub CommandButton1_Click()
        Application.ScreenUpdating = False
        Sheets("Sheet1").PrintOut
        Application.ScreenUpdating = True
    End Sub
    
    Private Sub UserForm_Initialize()
        Sheets("Sheet2").Activate
    End Sub

    Lalu coba dirunning UserForm-nya (tekan tombol F5). Lihat apakah proses berhasil. Demikian.

  5. @Caton Atur area cetak (Print Area)

    Saya coba dulu mas . :D

  6. Caton

    Agu 14 Terverifikasi Indonesia + 11.512 Poin

    @Evan D. Nugraha Saya coba dulu mas . :D

    Harus mas Evan, biar bisa ... :D

  7. @Caton Harus mas Evan, biar bisa ... :D

    Wajib mas , biar lebih pro dari mas . :D :P >:)

  8. Caton

    Agu 14 Terverifikasi Indonesia + 11.512 Poin

    @Evan D. Nugraha Wajib mas , biar lebih pro dari mas . :D :P >:)

    Terbaik ... ! I like your spirit!

  9. manweljs_

    Agu 14 Terverifikasi + 5.020 Poin

    mas @Caton

    banyak borongan nih malam ini :D ;)

  10. Caton

    Agu 14 Terverifikasi Indonesia + 11.512 Poin

    @manweljs_ mas @Caton ... banyak borongan nih malam ini :D ;)

    Siang saya gak sempat, sudah diborong mas @manweljs_ ... :D

 

atau Mendaftar untuk ikut berdiskusi!