iRibbon + VBA

  1. 9 bulan yang lalu

    Minta pencerahannya donk
    Bagaimana caranya supaya Ribbon Cetak yang dibuat berfungsi ????
    iRibbon.jpg
    Kriteria:

    1. Fungsi cetak berfungsi mencetak Cell yang kita select/block saja
    2. Ukuran kertas di lock/dikunci dengan ukuran F4 : Width 21,59 cm x Height 33 cm

    Gmn tu kode VBA-nya ????
    Trims ...

  2. Caton

    5 Nov 2017 Terverifikasi Indonesia + 10.382 Poin

    Yang saya ketahui, begini:

    ++ Pertama. Buat dahulu prosedur untuk menangani proses yang diinginkan (dalam hal ini untuk proses mencetak). Misalkan:

    Sub menuCetak(control As IRibbonControl)
    
    End Sub

    Susun kode VBA yang diinginkan di dalam prosedur tersebut. Untuk mencetak sel atau range yang dipilih, perintah yang bisa digunakan antara lain:

    ...
    If Selection.Count Then
       Selection.PrintOut
    End If
    ...

    Jika area dari range yang akan dicetak diketahui, sebaiknya menggunakan objek Range saja, misalkan:

    ...
    Range("A1:F10").PrintOut
    ...

    Mana yang disukai, saya kembalikan kepada mas @D-HUNTER sebagai programmer-nya... ;) Lalu bagaimana 'mengunci' ukuran kertasnya? Kalau menggunakan kode VBA saya tidak tahu. Saya pernah mencoba, namun tidak menemukan solusinya. Dari referensi yang pernah saya baca, hal tersebut tidak dimungkinkan. Jadi untuk mengatasinya, saya lakukan proses pengaturan ukuran kertas secara manual dahulu untuk setiap sheet yang akan dicetak... ^_^;

    ++ Kedua. Menghubungkan prosedur yang kita buat ke tombol menu Ribbon yang sudah dibuat. Tinggal masukkan saja nama prosedur yang sudah dibuat ke dalam properti XML, yakni pada elemen OnAction. Contohnya:

    <button id="buttonPrint" label="Cetak" size="large" onAction="menuCetak" image="iconPrint" />

    Simpan Custom UI yang sudah dibuat, lalu coba buka file Excelnya dan klik tombol Cetak-nya. Lihat apakah kode berjalan sesuai harapan...

    Demikian pengalaman yang dapat saya bagikan... ;)

  3. Oke, thank u bang @Caton

 

atau Mendaftar untuk ikut berdiskusi!