Format – Print – Printer(v.basic-kaynak1)

Print Format(Sayı,Format)

Print Format(32465,6429,"###,###,##") Çıktı : 324,465,64

Print Format(32465,6029,"###,###,##") Çıktı : 324,465,6

Print Format(32465,602,"000,000,000") Çıktı : 324,465,602

Print Format(3.2465,"###,##%") Çıktı : 324,46%

Print Format(sayı, "General Number")

Print Format(sayı, "Currency")

Print Format(sayı, "Fixed")

Print Format(sayı "Standard")

Print Format(sayı, "Percent")

Print Format(sayı, "Scientific")

Print Format(sayı, "Yes/No") ‘ Sayı 0 ise NO

Print Format(sayı, "True/False") ‘ Sayı 0 ise FALSE

Print Format(sayı, "On/Off") ‘ Sayı 0 ise OFF

Print Format(sayi, "General Date")

Print Format(sayi, "Long Date")

Print Format(sayi, "Medium Date")

Print Format(sayi, "Short Date")

Print Format(sayi, "Long Time")

Print Format(sayi, "Medium Time")

Print Format(sayi, "Short Time")



FontSize : Karakter büyüklüğü

FontName : Kayakter tipi

Copies : Kopya sayısı

CurrentX : Çıktının sol kenardan uzaklığı

CurrentY : Çıktının yukarıdan uzaklığı

FontSize : Yazı karakteri boyu

FontName : Yazı tipi

Height : Kullanılan sayfa boyutuna bağlı olarak yazım alanı yüksekliği

NewPage : Yeni bir sayfaya yazılmaya başlanağını bildirir

EndDoc : Yazdırılacak dökümanın bittiğini bildirir

Page : Aktarılan sayfa sayısı ( EndDoc ile sayma tamalanır )

ColorMode : vbPRCMMonochrome (1- siyah-beyaz), vbPRMMColor (2-renkli)

PrintQuality : VbPRPQDraft (-1, Düşük çözünürlük), VbPRQLow (-2, Düşük çz.),

VbPRQMedium (-3, Orta çözünürlük), VbPRQHight (-4, Yüksek çz.)

Orientation : Çıktı yönü ( Dikey / Yatay )

PaperSize : Çıktısı alınacak kağıdın boyutu

Width : Yazım alanı genişliği

( ; ) Noktalı Virgül : Arada boşluk bırakmaz

( , ) Virgül : Arada bir tab boşluk bırakır

( & ) : Arada boşluk bırakmaz

Tab : Yazılmaya başlanacak sütunu gösterir

( ) Boşluk : Arada boşluk bırakmaz



Birden Fazla Sayfa Yazdırmak



Printer.Print "Page 1"

Printer.Newpage

Printer.Print "Page 2"


Resmi Yazıcıdan Çıkarmak



Printer.PaintPicture Picture1.Picture

Printer.EndDoc


Resmin Boyutunu Değiştirerek Yazıcıdan Çıkarmak

Dim X1, X2, Y1, Y2

X2 = Picture1.Width

Y2 = Picture1.Height

X1 = X2 * 1.5 ‘ 1.5 Oranında Büyütme



Y1 = Y2 * 1.5

Printer.PaintPicture Picture1.Image, 0, 0, X1, Y1, 0, 0, X2, Y2



Sistemde Kurulu Yazıcı Olup Olmadığını Kontrol Etmek

Private Sub Yazıcı_Click()

Dim msg$

msg = YaziciAdi

If Bak = "" Then

MsgBox ("Yazıcı kurulmamış")

Else

MsgBox ("Sistemde Kurulu Olan Yazıcı :" + msg)

End If



End Sub

Function Yazici() As String

On Local Error Resume Next

Yazici = Printer.DeviceName

End Function


Form ve Ekran Görüntüsünü Yazıcıdan Almak

(General)(Declaration)



Option Explicit



Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _

ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const VK_MENU As Byte = &H12

Const VK_SNAPSHOT As Byte = &H2C

Const KEYEVENTF_KEYUP = &H2



Private Sub FormYaz_Click()

Dim lWidth As Long, lHeight As Long

Clipboard.Clear

Call keybd_event(VK_MENU, 0, 0, 0)

Call keybd_event(VK_SNAPSHOT, 0, 0, 0)

DoEvents

Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)

Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)

Printer.Print

If Width > Printer.ScaleWidth Then

lWidth = Printer.ScaleWidth

lHeight = (Printer.ScaleWidth / Width) * Height

Else

lWidth = Width

lHeight = Height

End If

Printer.PaintPicture Clipboard.GetData, 0, 0, lWidth, lHeight

Printer.EndDoc

SavePicture Clipboard.GetData, Me.Name & ".BMP"

End Sub



Private Sub Command2_Click()

Dim lHeight As Long

Clipboard.Clear

Call keybd_event(VK_SNAPSHOT, 1, 0, 0)

DoEvents

Call keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0)

Printer.Print

lHeight = (Printer.ScaleWidth / Screen.Width) * Screen.Height

Printer.PaintPicture Clipboard.GetData, 0, 0, Printer.ScaleWidth, lHeight

Printer.EndDoc

SavePicture Clipboard.GetData, Me.Name & ".BMP"

End Sub