formcetak.frm

Application for mini shop

VERSION 5.00
Begin VB.Form FormCetak 
   Caption         =   "Cetak Nota"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "FormCetak"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
    Print Format(Date, "dd - mmm - yyyy")
    Print
    Print "TOKO SERBA ADA"
    Print "-------------------------------"
    Print
    Print "Total Biaya   = ", Total
    Print "Pembayaran = ", Bayar
    Print "Kembali        = ", Kembali
    Print
    Print "-------------------------------"
    Print "TERIMA KASIH"
End Sub