Bagaimana Mengatasi Icon Printer Yang Tidak Terdeteksi Atau Hilang

Saat Anda ingin melakukan Print pada dokumen excel atau word atau apa saja yang bisa di print. Pernahkan Anda mengalami "tidak bisa melakukan print"? Dan dari komputernya sendiri mengatakan bahwa printernya belum terinstal, padahal Anda sangat yakin sudah menginstalnya. Saat di cek di bagian control panel - printer and faxes juga tidak terlihat icon printer tersebut. Dan sekali lagi, Anda sangat yakin sudah menginstall printer tersebut.

Lalu bagaimana mengatasi hal ini? Berikut tutorial yang bisa membantu Anda:

1. Klik start-run, pada kotak run ketik "services.msc" (tanpa tanda petik)setelah itu tekan Enter.

2. Maka akan muncul kotak services yang berisi berbagai macam pilihan, jangan bingung, scroll kebawah dan pilih saja bagian Printer Spooler

3. Double klik pada bagian itu, nanti akan muncul lagi kotak dialog, perhatikan isinya baik-baik

4. Pada bagian startup type pilih automatic, kemudian dibagian bawah sedikit ada tombol start, tekan tombol tersebut

5. Klo sudah tekan Apply, lalu ok.

6. Selesai.....

Dengan cara ini semoga printer Anda bisa digunakan kembali dan kegiatan Anda kembali berjalan..

 

Selamat Mencoba..!!!

Cara membuat garis bawah Kop Surat pada MS.Word

Berkaitan dengan pekerjaan perkantoran di suatu lembaga perusahaan, yayasan atau instansi tertentu, tidak akan pernah lepas dari kegiatan surat menyurat. Dalam membuat surat ini akan selalu dicantumkan Kop Surat sebagai identitas lembaga atau instansi sekaligus sebagai keabsahan daripada surat tersebut selain tanda tangan dan stempel.

Kop surat berada di bagian atas dari lembar surat dan dibatasi oleh sebuah garis dari isi bagian surat tersebut. Untuk membuat garis bawah pada kop surat tersebut bermacam-macam cara yang dapat dilakukan.

Cara pertama adalah setelah Kop surat beserta logonya ditulis atau diketik, barulah diberi garis dengan menggunakan perintah klik ribbon insert kemudian klik shapes pilih garis (line). Dengan menggunakan mouse, klik dan tahan dibawah kop surat kemudian drag kekanan sampai batas margin sambil menekan tombol shift pada keyboard. Jika ingin garis yang tampil dengan type yang lain dapat diedit dengan caradisini.

Cara yang kedua adalah setelah kop surat dan logo telah diketik, letakkan kursor dibawah kop surat, kemudian tekan tombol pada keyboard :

1. --- (- sebanyak 3 kali) kemudian tekan enter, untuk membuat garis tunggal mendatar
2. === (= sebanyak 3 kali) kemudian tekan enter, untuk membuat garis dobel mendatar
3. ### (# sebanyak 3 kali) kemudian tekan enter, untuk membuat garis rangkap 3 mendatar.

Cara yang ketiga adalah dengan menggunakan fasilitas tabel.

1. Buatlah tabel 2 kolom 1 baris, kemudian atur sedemikian rupa, sehingga kolom yang kiri diisi logo dan kolom sebelah kanan diisi dengan Kop surat.
2. Blok tabel tersebut, kemudian pada ribbon design klik tanda panah kebawah pada group menu Draw Borders untuk membuka jendela borders and shading.
   
    
3. Pada tab Borders, pada setting klik None kemudian klik Custom.
4. Pada bagian Style, scroll kebawah untuk memilih jenis garis yang dibutuhkan.
5. Atur color dan width.
6. Pada preview, klik pada pilihan garis bawah tabel
7. Klik OK
   
    

Maka garis bawah pada kop surat telah dibuat. Silahkan saja pilih cara yang paling mudah menurut anda dari ketiga cara diatas.

Selamat mencoba ..!!

Membuat daftar isi secara otomatis dengan microsoft word

Sepele sebenarnya masalah ini, cuman kalau gak ditulis disini, saya sendiri sering lupa

oke. sudah pada tau daftar isi kan, Daftar isi adalah halaman yang menyajikan isian dari judul judul utama tiap halaman, misalnya pendahuluan, isi, penutup dsb.

Microsoft word sendiri sudah mendukung untuk membuat daftar isi secara otomatis, berdasarkan halaman dan daftar yang akan ditulis. oke langsung saja caranya :

1. bikin style dari bagian yang akan ditulis ke daftar isi, misal BAB 1, BAB 2 dll. select kalimat BAB 1, pilih style untuk BAB 1 (pada bab 1 ini style heading 1 dipilih)
2. bikin style lagi jika ada sub bab, misal 1.1 Sub Bab 1 (select dan pilih style, pilih style heading 2)
3. Bikin halaman kosong untuk daftar isi
4. Klik References – table of contens – insert table of content – option – pilih style (misal heading 1 nilai 1, heading 2 nilai 2. nilai disini menandakan sub sub nya)
5. klik ok
6. daftar isi akan terbentuk secara otomatis.
7. jika ada penambahan isian lagi, klik References – update table
8. mudah bukan
   
   Selamat Mencoba..!!!

Membuat Fix File dengan Visual Basic

WM/VB.BG (terdeteksi oleh Antivir)

Trojan Backdoor Generic6.GMX (terdeteksi oleh AVG)

Backdoor.Delf (terdeteksi oleh Norton Anti Virus)

TR/Drop.Loops.A.1 (terdeteksi oleh Antivir)

w32/delf.cd worm (terdeteksi oleh Avira)

Inti dari perbaikan file ini ada 3 yaitu:

- Mendeteksi Ukuran File

- Memotong badan file yang berisi virus

- Menyimpan file yang telah jadi

seperti penjelasan di artikel sebelumnya, ukuran virus yang menempel di badan file sehat itu adalah 331299 byte, untuk itu kita akan melakukan pendeletan virus yang menyisip di file tersebut, caranya … buka visual basic, atau alat andalan utnuk membuat tools

MENDETEKSI UKURAN FIE

untuk dapat menjalankan fungsi pendeteksian file, cukup ketik fungsi BytesInBytes di bawah ini…

Function BytesInBytes(bIn() As Byte, bFind() As Byte, startPosn As Long) As Long

Dim I, iFinal, iLimit, xLimit, uIn, uFind As Long ’2GB limit

Dim X As Integer

uFind = UBound(bFind)

iLimit = UBound(bIn) – uFind + 1

xLimit = uFind – 1

uIn = UBound(bIn)

For I = startPosn To iLimit

For X = 0 To xLimit

If I + X <= uIn Then

If bIn(I + X) <> bFind(X + 1) Then Exit For

If X + 1 = uFind Then

iFinal = BytesInBytes(bIn, bFind, I + 1)

If iFinal > I Then I = iFinal

BytesInBytes = I

Exit Function

End If

End If

Next X

Next I

BytesInBytes = -1

End Function

MEMOTONG BAGIAN VIRUS YANG MENEMPEL DI FILE

Untuk dapat memotong virus tersebut, cukup ketikkan kode di bawah ini:

Private Sub CutPaste(OP As Boolean, PasteBytes() As Byte)

‘TRUE=Cut..FALSE=Paste

SL = 331299 ’662598 ’331299

If SFP >= 0 Or SL > 0 Then

Dim nBytes As Long

Dim I As Long

If OP = False Then ‘Paste

nBytes = UBound(PasteBytes)

ReDim Preserve WorkSpace(1 To FL + nBytes)

‘ Move the bytes DOWN in the Array–Dest,Src,Bytes to move

If FL – SFP > 0 Then Call CopyMemory(ByVal VarPtr(WorkSpace(nBytes + SFP + 1)), ByVal VarPtr(WorkSpace(SFP + 1)), FL – SFP)

‘ Copy the selected data to the Array–Dest,Src,Bytes to move

Call CopyMemory(ByVal VarPtr(WorkSpace(SFP + 1)), PasteBytes(1), nBytes)

FL = FL + nBytes

Else ‘Cut

If FL – SL > 0 Then

‘ Move the Data UP in the Array–Dest,Src,Bytes to move

If FL – (SL + SFP) > 0 Then Call CopyMemory(ByVal VarPtr(WorkSpace(SFP + 1)), ByVal VarPtr(WorkSpace(SL + SFP + 1)), FL – (SL + SFP))

FL = FL – SL

ReDim Preserve WorkSpace(1 To FL)

Else

ReDim WorkSpace(1 To 1)

FL = 1

End If

End If

If FF > FL Then FF = FL

If FF < 0 Then FF = 0

‘ShowFileInfo

End If

End Sub

guna skrip di atas tadi adalah untuk memotong bagian yang berukuran 331299 byte atau ukuran virus itu sendiri … lalu setelah dipotong, bagaimana cara menyimpannya?

MENYIMPAN FILE YANG TELAH DIBERSIHKAN

Cukup ketikkan kode di bawah ini:

Private Sub goSave()

On Error GoTo CLSerr

Dim Fnum As Integer

Dim Fname As String

Dim saveok As Boolean

If optxls.Value = True Then

‘MsgBox Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 3)

Fname = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 4) & “_fix” & “.xls”

‘MsgBox Right(Fname, 4), 0, “dsasd”

End If

If optdoc.Value = True Then

Fname = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 4) & “_fix” & “.doc”

‘MsgBox Right(Fname, 3), 0, “dsasd”

End If

If FSO.FileExists(Fname) Then FSO.DeleteFile (Fname)

Fnum = FreeFile

Open Fname For Binary Access Write As Fnum

Put Fnum, , WorkSpace()

Close Fnum

OpenFileName = Fname

FL = FSO.GetFile(OpenFileName).Size

Exit Sub

CLSerr:

If Err <> 32755 Then MsgBox (Error & vbCr & vbCr & “Error Number: ” & Str(Err)), vbCritical, “! ERROR !”

End Sub

File yang dibersihkan akan disimpan sesuai nama file dan extensinya, tapi nama file-nya ditambahi judul “_fix” gitu untuk membedakan file yang sakit dan yang sehat…

nah mudah bukan??? 

Semoga bermanfaat..!!!
Selamat mencoba,,,

SEJARAH TAXI

Di Paris, Nicolas sauvage menawarkan kereta kuda dan driver untuk disewakan. Pada tahun 1635, di Hackney Carriage Undang adalah undang-undang pertama berlalu yang mengendalikan kereta kuda untuk disewa di Inggris.

Nama taksi ini diambil dari kata Argometer. The Argometer adalah alat yang mengukur jarak atau waktu perjalanan kendaraan, dan memungkinkan tarif yang akurat yang akan ditentukan. Yang Argometer diciptakan oleh penemu Jerman, Wilhelm Bruhn pada tahun 1891.



Gottlieb Daimler adalah perusahaan jasa taksi pertama di dunia yang di bentuk pada tahun 1897 taksi khusus yang disebut Daimler Victoria. Taksi datang dilengkapi dengan taksi yang baru diciptakan meter. Di 16 Juni, 1897 taksi Daimler Victoria dikirim ke Friedrich Greiner, seorang Stuttgart pengusaha yang memulai bermotor pertama di dunia perusahaan taksi.





Pada 13 September 1899, Amerika pertama meninggal dalam kecelakaan mobil. Mobil itu adalah Taksi, ada sekitar seratus taksi beroperasi di jalan-jalan New York tahun itu. Enam puluh delapan tahun Henry Malcolm sedang membantu seorang teman dari jalan mobil ketika seorang sopir taksi kehilangan kendali dan memukul fatal Bliss.





Pemilik perusahaan taksi, Harry Allen adalah orang pertama yang memiliki taksi kuning Allen dicat kuning taksi nya untuk berdiri keluar. berkat idenya gan sekarang taksi identik dengan warna kuning

Enjoy the Post..!!!