macro cetak tidak jalan

  1. 6 tahun lalu

    untuk sheeet13 (pts) saya buatkan tombol cetak dengan macro

    Sub pts()
    mulai = Range("bp1").Value
    sampai = Range("bp1").Value
    kali = Range("bp1").Value
    Worksheets("pts").PrintOut from:=mulai, To:=sampai, Copies:=kali
    End Sub

    di sell bp1 sudah saya tempatkan angka 1 tapi kenapa kok tidak bisa jalan ya?
    mohon bantuannya...

  2. file terlampir

  3. @farud

    karena ada Option Explicit pada awal skrip, maka anda harus mendeklarasikan semua variabel anda.

    misalnya :

    ...
    Dim mulai as Integer, sampai as integer, kali as integer
    ...

  4. klo bentuk contohnya gimana mas @manweljs_ .. terus terang bingung mas

  5. sudah bisa mas.. terus terang klo penerapan dari mas @manweljs_ saya bingung karena VBA saya tidak tau mas cuma saya akali saja,saya buat module baru dan macro untuk cetak saya tempatkan di module baru tersebut hehehe
    terimakasih mas

  6. Di sunting 6 tahun lalu oleh manweljs_

    @farud

    maksud saya seperti ini :

    ...
    Dim mulai as Integer, sampai as integer, kali as integer
    mulai = Range("bp1").Value
    sampai = Range("bp1").Value
    kali = Range("bp1").Value
    Worksheets("pts").PrintOut from:=mulai, To:=sampai, Copies:=kali
    ...

    jadi anda harus memberi tahu excel type dari variabel yang anda buat.

    untuk type variabel sendiri dibagi menjadi 2, numerik dan non-numerik

    numerik.PNG

    non numerik.PNG

 

atau Mendaftar untuk ikut berdiskusi!