Sub DRUCK_BRIEF()
Screen.MousePointer = 11
Call printer_defaults
Call GetDataArea
Call GetDataContact
Call GetDataContactNumber
Call GetDataGP
Call PrintElements
Screen.MousePointer = 0
End Sub

Private Sub printer_defaults()
Printer.ScaleMode = vbCentimeters
breite = Printer.ScaleWidth
höhe = Printer.ScaleHeight
Printer.ScaleMode = vbPixels
End Sub

Private Sub GetDataArea()
Call SetSql
Connect
RS.Open sql, CN
Area = Split(RS("area"), "|")
CLOSEN
Area1Top = Area(0)
Area2Top = Area(2)
Area3Top = Area(4)
Area2height = Area(3)
Area4Top = Area(6)
Area5Top = Area(8)
End Sub

Private Sub GetDataContact()
If Kontaktart = "Brief" Then
sql = "SELECT * FROM ktm_brief WHERE id = '" & brieffaxid & "'"
Else
sql = "SELECT * FROM ktm_fax WHERE id = '" & brieffaxid & "'"
End If
 
Connect
RS.Open sql, CN
If Not (RS.EOF And RS.BOF) Then
IhrZeichen = RS("zeichen")
If IsNull(RS("vom")) Then
vom = ""
Else
Ihrenachrichtvom = RS("vom")
End If
Datum = RS("datum")
Betreff = RS("betreff")
Text = RS("text")
UZeichen = RS("uzeichen")
End If
CLOSEN
End Sub

Private Sub GetDataContactNumber()
Connect
sql = "SELECT nummer FROM gp WHERE id = " & Id & ""
RS.Open sql, CN
Kundennummer = RS("nummer")
RS.Close
 
sql = "SELECT * FROM nummern WHERE Nummerart = 'Kontaktnummer'"
RS.Open sql, CN
If RS("nummer") = "x" Then
ZeichenNR = RS("nummer1") & RS("nummer2") & "1234" & RS("nummer3") & RS( _
  "nummer4")
Else
ZeichenNR = "1234"
End If
CLOSEN
End Sub