Dear kadek, untuk melakukan hal yang anda inginkan sepertinya sulit dilakukan dengan cara langsung melakukan print pada form.
untuk dapat melakukan hal tersebut dengan menggunakan metode print anda harus membuat class tersendiri, tapi hal tersebut cukup rumit sebaiknya anda menggunakan object lain untuk menampilkan data tersebut seperti, label, textbox, atau lainnya dengan menyamakan bg color object dengan bg color form dan borderless. hal tersebut cukup mudah untuk dilakukan dibanding dengan metode print pada form. OK semoga dapat membantu anda dan sukses. --- In [email protected], Kadek Pong <kadekp...@...> wrote: > > aya mempunyai script Function seperti dibawah : > Field "Keterangan" isi datanya panjang. > Bagaimana caranya supaya data yang ditampilkan pada layar datanya semuanya kelihatan, ( MULTILIN E=TRUE)/ JIKA MARGIN KANAN STOP, KEMUDIAN BALIK KE WAL DARI KIRI DAN SETERUSNYA. > Karena dengan script dibawah data yang ditampilkan pendek/terpotong( tidak muncul semua. > Apa yang perlu ditambahkan pada script dibawah supaya data yang ditampilkan > supaya data mucul semua. > > Terima kasih. > > > Function Cetaks() > Dim oRS1 As ADODB.Recordset > Set oRS1 = New ADODB.Recordset > oRS1.Open "select * from Trans1 WHERE no_Mo = '" & Text1.Text & "' ", oConn > Tampilkan.Show > Tampilkan.Font = "Courier New" > Tampilkan.Print > Tampilkan.Print > Tampilkan.Print Tab(5); " No : "; oRS1!no_mo > Tampilkan.Print Tab(5); " Time : "; oRS1!jam_trs > Tampilkan.Print Tab(5); " Description : "; oRS1!keterangan > Tampilkan.Print > Tampilkan.Print > oRS1.Close > End Function > > > > > [Non-text portions of this message have been removed] >
