Pencarian!

Motivasi

.:| Sebuah ujian dan cobaan adalah suatu kesulitan. Dimana kesulitan harus kita hadapi dengan senyuman yang layak untuk disanjung dunia, senyuman optimis menembus telaga air mata.|:.
.: Visi tanpa eksekusi adalah lamunan, eksekusi tanpa visi adalah mimpi buruk Jangan biarkan orang lain membuat kamu merasa tidak pantas mendapatkan apa yang kamu inginkan :.

Pengumuman !

  1. PENGUMUMAN :
  2. Segenap civitas akademika Universitas Muara Bungo mengucapkan : "Selamat Hari Raya Iedul Fitri 1438H"
  3. Semoga kita semua kembali ke Fitrah. Aamiin.

Minggu, 20 Februari 2011

print struk vb 6

catatan belajar vb

[code] Sub cetak()
Dim garis As String
Printer.Font = "Courier new"
Printer.FontSize = 10
Printer.CurrentX = 500
Printer.CurrentY = 70
Printer.Print Tab(10); Date & "  " & Time; Tab(20); Text1.Text
End Sub [/code]

0 komentar:

Posting Komentar