Export dari datagridview ke Excel di vb.net 2010

Setelah berkeliling forum akhirnya dapet source code simpel untuk export dari datagridview ke excel, kenapa simpel?? karena menurut saya tinggal filtering dari datagridview apapun databasenya maka proses export dapat dengan mudah dilakukan karena hanya mengambil data dari datagridview saja bukan dari database aslinya,
untuk menjalankannya anda harus menambahkan reference pada property project anda Microsoft.Office.Interop.Excel dan pastikan sudah terinstal microsoft Officenya.
berikut sourcenya :

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim rowsTotal, colsTotal As Short
        Dim I, j, iC As Short
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Dim xlApp As New Excel.Application
        Try
            Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
            Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
            xlApp.Visible = True
            rowsTotal = DataGridView1.RowCount - 1
            colsTotal = DataGridView1.Columns.Count - 1
            With excelWorksheet
                .Cells.Select()
                .Cells.Delete()
                For iC = 0 To colsTotal
                    .Cells(1, iC + 1).Value = DataGridView1.Columns(iC).HeaderText
                Next
                For I = 0 To rowsTotal - 1
                    For j = 0 To colsTotal - 1
                        .Cells(I + 2, j + 1).value = DataGridView1.Rows(I).Cells(j).Value
                    Next j
                Next I
                .Rows("1:1").Font.FontStyle = "Bold"
                .Rows("1:1").Font.Size = 10
                .Cells.Columns.AutoFit()
                .Cells.Select()
                .Cells.EntireColumn.AutoFit()
                .Cells(1, 1).Select()
            End With
        Catch ex As Exception
            MsgBox("Export Excel Error " & ex.Message)
        Finally
            'RELEASE ALLOACTED RESOURCES
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
            xlApp = Nothing
        End Try
    End Sub

Print Dari Datagridview dengan vb.net

Kebetulan lagi garap project kecil, jd tidak butuh report yg rumit dan besar, cukup menggunakan filtering pada datagridview dan hasilnya diprint jd tidak usah menggunakan crystalreport lagi, setelah berkeliling diforum  berikut adalah kode yang menurut saya paling simpel dan mudah digunakan hanya membutuhkan komponen bawaan VB.NET saja (PrintDocument dan PrintPreviewDialog), berikut Source code nya :

Dim mRow As Integer = 0
Dim newpage As Boolean = True

Private Sub PrintDocument1_PrintPage_1(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        With DataGridView1
            Dim fmt As StringFormat = New StringFormat(StringFormatFlags.LineLimit)
            fmt.LineAlignment = StringAlignment.Center
            fmt.Trimming = StringTrimming.EllipsisCharacter
            Dim y As Single = e.MarginBounds.Top
            Do While mRow < .RowCount
                Dim row As DataGridViewRow = .Rows(mRow)
                Dim x As Single = e.MarginBounds.Left
                Dim h As Single = 0
                For Each cell As DataGridViewCell In row.Cells
                    Dim rc As RectangleF = New RectangleF(x, y, cell.Size.Width, cell.Size.Height)
                    e.Graphics.DrawRectangle(Pens.Black, rc.Left, rc.Top, rc.Width, rc.Height)
                    If (newpage) Then
                        e.Graphics.DrawString(DataGridView1.Columns(cell.ColumnIndex).HeaderText, .Font, Brushes.Black, rc, fmt)
                    Else
                        e.Graphics.DrawString(DataGridView1.Rows(cell.RowIndex).Cells(cell.ColumnIndex).FormattedValue.ToString(), .Font, Brushes.Black, rc, fmt)
                    End If
                    x += rc.Width
                    h = Math.Max(h, rc.Height)
                Next
                newpage = False
                y += h
                mRow += 1
                If y + h > e.MarginBounds.Bottom Then
                    e.HasMorePages = True
                    mRow -= 1
                    newpage = True
                    Exit Sub
                End If
            Loop
            mRow = 0
        End With
    End Sub

Berikut kode untuk tombol print nya :

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()
    End Sub

Semoga Bermanfaat :)

Perbedaan prosesor intel pentium D,Dual Core, Core 2 Duo, Quad Core, Core 2 Quad, I3, I5, I7

Masih banyak konsumen, teman bahkan mereka yang sudah bergerak di bidang IT bertanya perbedaan dari rangkaian produk prosesor keluaran Intel, dan memang terkadang saya pun agak sulit memberi penjelasan terlebih pada mereka yang masih awam terhadap perkembangan dunia IT, saya harus bekerja keras untuk menjelaskan nya dari awal 

Pentium D
Pentium D adalah prosesor dual core pertama dari intel yang berbasis arsitektur NetBurst yang sama dengan pentium 4, atau bisa dibilang ‘legacy’ atau peninggalan. Kinerja dari pentium D ini hampir 2x lipat dari pentium 4 dengan clock speed yang sama, fisik dari pentium D, soket LGA775. Teknologi ini menggunakan 2 chip processor dalam satu die, tetapi penggunaan processor kedua masih kurang maksimal. Pentium D mempunyai daya paling besar, tetapi toleransi suhu yang paling tinggi (sekitar 67 derajat celcius) karena teknologi Pentium D memiliki panas yang cukup tinggi. kerugian paling besar lagi, chip ke-2 dari processor ini tidak memiliki pengecekan panas bagi inti ke-2, sehingga, bila chip ke-2 kepanasan, kita tidak akan pernah tahu.
Dual Core
Pentium Dual Core adalah generasi pertama dari processor intel dengan arsitektur Core, karena intel telah meninggalkan arsitektur Pentium. Prosesor ini kinerjanya masih dibawah Core 2 Duo karena kecepatan FSB yang diturunkan dan juga L2 Cache yang dipotong. Model ini dapat memaksimalkan penggunaan core ke dua dari processor, dan sudah mempunyai pengecekan panas bagi inti processor ke-2, difabrikasi dengan ukuran chip pada die 90nm- 65nm.
Core 2 Duo
Core 2 Duo adalah Generasi kedua dari arsitektur Core, memiliki kecepatan latency yang lebih kecil (membuatnya lebih cepat dibanding pendahulunya) dan memiliki memori cache yang dipasang per core, tetapi terhubung satu sama lain (secara paralel). Diproduksi dengan fabrikasi 65 nm. Sehingga ada versi yang memiliki 4 core didalamnya (quad core).
Quad Core
Quad Core adalah prosesor dengan 4 inti (core) didalamnya
Core 2 Quad
Core 2 Quad adalah gabungan dari 2 buah prosesor Core 2 Duo.
I3

Intel Core i3 merupakan varian paling value dibandingkan dua saudaranya yang lain. Processor ini akan mengintegrasikan GPU (Graphics Processing Unit) alias Graphics On-board didalam processornya. Kemampuan grafisnya diklaim sama dengan Intel GMA pada chipset G45. Selain itu Core i3 nantinya menggunakan manufaktur hybrid, inti processor dengan 32nm, sedangkan memory controller/graphics menggunakan 45nm. Code produk Core i3 adalah “Arrandale”.
I5
Jika Bloomfield adalah codename untuk Core i7 maka Lynnfield adalah codename untuk Core i5. Core i5 adalah seri value dari Core i7 yang akan berjalan di socket baru Intel yaitu socket LGA-1156. Tertarik begitu mendengar kata value ? Tepat ! Core i5 akan dipasarkan dengan harga sekitar US$186. . Maka motherboard Core i5 yang akan menggunakan chipset Intel P55 (dikelas mainstream) ini akan terlihat lowong tanpa kehadiran chipset northbridge. Jika Core i7 menggunakan Triple Channel DDR 3, maka di Core i5 hanya menggunakan Dual Channel DDR 3. Penggunaan dayanya juga diturunkan menjadi 95 Watt. Chipset P55 ini mendukung Triple Graphic Cards (3x) dengan 1×16 PCI-E slot dan 2×8 PCI-E slot. Pada Core i5 cache tetap sama, yaitu 8 MB L3 cache. Intel juga meluncurkan Clarksfield, yaitu Core i5 versi mobile yang ditujukan untuk notebook. Socket yang akan digunakan adalah mPGA-989 dan membutuhkan daya yang terbilang cukup kecil yaitu sebesar 45-55 Watt.
I7
Core i7 sendiri merupakan processor pertama dengan teknologi “Nehalem”. Nehalem menggunakan platform baru yang betul-betul berbeda dengan generasi sebelumnya. Salah satunya adalah mengintegrasikan chipset MCH langsung di processor, bukan motherboard. Nehalem juga mengganti fungsi FSB menjadi QPI (Quick Path Interconnect) yang lebih revolusioner.
Sekian Semoga membantu :D