Re: [Programmer-VB] Tanya Print Struk

Mon, 29 May 2006 00:34:21 -0700

maaf pak saya pakek dot net
jadi perintah tersebut tidak bisa

oh ya pak klo di VB 6 khan ada "printer.enddoc" klo vb.net apa ya...

On 5/29/06, Ronald Irawan <[EMAIL PROTECTED]> wrote:

UNTUK struk lebih baik anda menggunakan perintah print,
ini contoh dari arsip
Private Sub PrintStruk()
    Open "LPT1:" For Output As #1
   Print #1, Tab(0)
   Print #1, "Toko Buku - RHEMA"
   Print #1, "Garut - Jabar"
   Print #1, "------------------------------------"
   Print #1, " "
   Print #1, "Note: Barang yang sudah dibeli tidak"
   Print #1, "      dapat ditukar / dikembalikan."
   Print #1, " "
   Print #1, " ***  T E R I M A  K A S I H  ***"
   Print #1, " "
   Print #1, " "
   Print #1, " "
   Print #1, " "
   Print #1, Chr(0)
   Close #1
end sub
Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta


PALUARED <[EMAIL PROTECTED]>
Sent by: [email protected]

29/05/2006 01:25 PM

Please respond to
[email protected]
To
[email protected]
cc
"Anthony Muliadi" <[EMAIL PROTECTED]>, "Andry Hilman" <[EMAIL PROTECTED]>
Subject
[Programmer-VB] Tanya Print Struk







Dear all,

Kenapa ya kok kertasnya masih gulung melebihi panjang kertas A5?

Private Sub PrintStruk()
       Dim tbCurrent As Table
       Dim tiCurrent As TableLogOnInfo
       Dim doc As New RptStruk



       For Each tbCurrent In doc.Database.Tables
           tiCurrent = tbCurrent.LogOnInfo
           With tiCurrent.ConnectionInfo
               .DatabaseName = "market"
               .ServerName = "Scylla01"
               .UserID = "sa"
               .Password = "susilo"
           End With
           tbCurrent.ApplyLogOnInfo(tiCurrent)
       Next

       Dim myReportsView As New FormRptBeli
       With myReportsView

           .CRBeli.ReportSource = doc

           .Text = "  AGIRA TOKO"

           doc.PrintOptions.PaperSize =
CrystalDecisions.Shared.PaperSize.PaperA5
           doc.PrintOptions.PaperOrientation = PaperOrientation.Portrait
           doc.PrintToPrinter(1, True, 0, 0)

       End With
   End Sub


TIA
rgrds,
PLR


------------------------ Yahoo! Groups Sponsor --------------------~-->
Everything you need is one click away.  Make Yahoo! your home page now.
http://us.click.yahoo.com/AHchtC/4FxNAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
   http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
   [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
   Yahoo! Messenger: wahanaprogrammer

Yahoo! Groups Links

<*> To visit your group on the web, go to:
   http://groups.yahoo.com/group/Programmer-VB/

<*> To unsubscribe from this group, send an email to:
   [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
   http://docs.yahoo.com/info/terms/


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS





Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke