√ Vba Code Untuk Print

Jika Anda menciptakan aplikasi memakai Ms. Excel terkadang Anda membutuhkan kemudahan untuk mencetak dokumen di Ms. Excel tersebut. Nah Anda mengharuskan untuk menciptakan arahan atau script VBA untuk proses pencetakan / print tersebut. Lalu bagaimana caranya? berikut ini aku berikan teladan sript VBA untuk print.

Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = 44
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1

Private Sub CommandButton1_Click()
    DoEvents
    Application.ScreenUpdating = False
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    DoEvents
    Workbooks.Add
    Application.Wait Now + TimeValue("00:00:01")
    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
    DisplayAsIcon:=False
    ActiveSheet.Range("A1").Select
   
     'Kode Print Landscape
    ActiveSheet.PageSetup.Orientation = xlLandscape
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
End Sub

Langsung saja Anda silakan buat sebuah Userform dan tambahkan CommandButton1 untuk tombol cetak kemudian silakan view code dan paste kan arahan VBA print diatas dan silakan coba praktekkan sendiri kemudian lihat hasilnya.

Silakan simak juga VBA Print dan Print Preview

Sumber http://www.excel-id.com/

√ Vba Code Print Userform | Cara Terbaik Print Form Excel

Ada beberapa pertanyaan dari salah satu pengujung blog excel ini yaitu bagaimana seh cara print UserForm dengan memakai VBA?. sebuah pertanyaan yang sederhana namun terkadang sangat juga dubutuhkan ketikan menciptakan sebuah aplikasi berbasis VBA Excel. Silakan dapat lihat Contoh Aplikasi Excel VBA

Untuk Print UserForm, ingat bukan print melalui userform, maksudnya disini ialah bagaimana cara print UserForm yang telah didesain dan dirancang melalui VBA editor ini.

Langkah pertama Anda tentu harus menciptakan sebuah rancangan UserForm berikut ini. Ini ialah salah satu pola silakan kembangkan kembali sesuai dengan kreativitas masing-masing.

Jika belum tahu mengenai UserForm silakan simak Pengenalan Dasar dan Cara Membuat UserForm

Setelah Anda menciptakan UserForm silakan buat salah satu tombol dengan memakai CommanButton1 dan double click tombol tersebut untuk menciptakan scriptnya kemudian isikan scrip VBA print UserForm dibawah ini

Private Sub CommandButton1_Click()
Me.PrintForm
End Sub

Anda dapat juga gunakan

Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub

Berikut tampilan di Microsoft Visual Editornya

Untuk menguji apakah script VBA yang telah dibentuk benar-benar berfungsi silakan Run, atau tekan F5 kemudian klik tombol CommandButton1 maka secara otomatis akan mencetak Form yang tampil.

Demikian, Semoga dimengerti dan bermanfaat.
Sumber http://www.excel-id.com/

√ Bahan Ihwal Print Di Ms. Excel

Mencetak pada Ms. Excel sumber gb: google.com

Print merupakan tahap final dalam sebuah proses pengolahan data menyerupai halnya pada Ms. Excel. Hal ini memang harus bisa dilakukan alasannya yaitu terkadang percuma saat Anda ahli dalam Ms. Excel tidak bisa untuk print. Ok, pada kesempatan kali ini saya akan membahas mengenai bahan ihwal print.

Untuk mencetak kedalam ketas dengan memakai printer sebagai alat cetaknya tentu Anda harus mengetahui apakah mau dicetak seluruh dokumen yang ada pada Ms. Excel ataukah hanya sebagian saja? tentunya Anda harus menyimak bahan saya mengenai

[10] Cara Mencetak di Excel Secara Keseluruhan Maupun Sebagian Dokumen Dengan Print Area

Anda sanggup mencetak dokumen sebagian saja dengan memakai print are. Mencetak harus mengikuti mekanisme pencetakan dengan memakai sajian yang telah disediakan oleh Ms. Excel. tentunya Anda harus bisa mencetak dengan benar semoga karenanya sesuai dengan yang diharapkan. Silakan simak tutorial

[12] Cara Ngeprint di Excel 2010 dengan Benar

Jika Anda telah bisa menguasai cara mencetak data Ms. Excel dengan benar Anda juga bisa memakai derma VBA untuk lebih mempermudah atau mendesain sesuai dengan impian artinya Anda bisa memilih tombol cetak dokumen atau cetak ke layar saja. Dengan memakai macro VBA desain atau rancangan Ms. Excel yang Anda buat akan terlihat lebih profesional.

Silakan simak juga [10] Macro VBA | Print dan Print Preview Data Excel

Tutorial lain mengenai pencetakan memakai VBA silakan simak atau ikuti link dibawah ini

[07] VBA Code Print UserForm | Cara Terbaik Print Form Excel
[03] VBA Code untuk Print

Sumber http://www.excel-id.com/

√ Xldialogprint | Membuka Jendela Print Dengan Vba

Jika kita ketahui bahwa dengan Ms. Excel dikala akan cetak ke kertas melalui mesin printer tentu harus menekan atau klik tombol print dan akan muncul jendela Print, Nah kemudian bagaimana bila jendela print tersebut dimunculkan dengan tombol melalui userform?

Di VBA ada dikenal dengan nama xlDialog, nah dengan pertolongan ini kita dapat menciptakan coding untuk memunculkan jendela print tersebut dan caranya ialah sebagai berikut

Langkah pertama kita akan menciptakan sebuah UserForm yang akan diberi tombol perintah / Commandbutton

Satu buah UserForm dan satu buah CommandButton telah dibentuk langkah berikutnya silakan Anda ganti caption CommandButton1 melalui properties menjadi "Print"

Setelah Anda mengganti caption menjadi "Print" langkah berikutnya ialah kita akan menciptakan script / coding untuk menampilkan jendela print dengan cara silakan Anda double klik CommandButton1 / tombol "Print" tersebut kemudian ketikkan coding berikut :

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub

Lebih jelasnya ibarat berikut

Silakan simak :

Cara Terbaik print form dengan VBA

Sebenarnya ada banyak coding yang dapat dipakai untuk proses pencetakan dengan VBA dan hal ini pernah aku bahas Anda dapat lihat koleksi koding VBA pada link dibawah ini

Koleksi Coding Print dengan VBA

Setelah Anda mengetikan koding diatas, mari kita coba apakah coding VBA yang telah dituliskan benar berfungsi atau belum dengan cara menekan tombol F5 pada keyboard maka akan muncul UserForm dan jadinya bila Anda klik tombol "Print" maka akan muncul jendela print dan inilah yang dinamakan xlDialogPrint.

Berhasil.
Silakan Anda coba bagaimana untuk menampilkan xlDialogPrint agar bermanfaat.
Sumber http://www.excel-id.com/

√ Cara Menciptakan Tombol Print Preview Pada Userform

Excel-id.com | Membuat tombol Print Preview melalui userform perlu pemahaman logika algoritma kenapa saya katakan demikian? terang alasannya ialah urutan pembacaan coding dalam bahasa pemrograman VBA dimulai dari atas ke bawah. Jika Anda menciptakan coding print preview melalui userform tanpa menyembunyikan sementara UserForm tersebut saya jamin hal ini akan berebut perintah artinya print preview dilakukan namun userform juga tetap aktif jadi akan mengakibatkan hang alias error.

Logikanya ialah saat klik tombol print preview yang dibentuk melalui UserForm maka pertama UserForm tersebut disembunyikan terlebih dahulu kemudian tampilkan Print Preview kalau print preview di close maka UserForm akan ditampilkan kembali. Hanya tiga alur yang dilakukan dan sangat sederhana sekali, Ok eksklusif saja berikut langkah-langkah menciptakan coding Print Preview melalui userform.

Membuat Tombol Print Preview melalui UserForm

Langkah pertama Anda harus menyisipkan 1 buah Userform dan silakan ganti Caption menjadi "Form Cetak" Jika Anda tidak mau mengganti caption juga tidak masalah.

Langkah berikutnya silakan buat satu buah tombol dengan memakai kemudahan Toolbox dan pilih control CommandButton kemudian ganti Caption menjadi " Print Preview" dan name ganti menjadi "TombolPrintPreview" untuk mengganti Caption dan Name silakan lihat pada Properties.

Baca Juga :
Code Print VBA Macro Lengkap

Langkah selanjutnya silakan Anda double click tombol Print Preview tersebut kemudian ketikkan script VBA dibawah ini

Private Sub TombolPrintPreview_Click()
UserForm1.Hide
Worksheets("Sheet1").PrintPreview
UserForm1.Show
End Sub

Keterangan :
Worksheets("Sheet1").PrintPreview artinya yang akan di print preview ialah worksheet1 kalau Anda akan menciptakan yang lain silakan ganti goresan pena tersebut dengan worksheet yang lain.

Silakan Anda jalankan programnya atau tekan tombol F5 pada keyboard dan silakan klik tombol Print Preview maka secara otomatis jendela print preview pada excel akan ditampilkan dan saat Anda klik tombol Close pada jendela print preview tersebut maka akan kembali ke Userform.

Demikian biar bermanfaat dan selamat mencoba. Jika ada yang kurang terang mengenai Cara Membuat Tombol Print Preview pada UserForm silakan kasih komentar dibawah.






Sumber http://www.excel-id.com/