vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Druckvorschau 
Autor: Zero-G.
Datum: 26.07.04 09:31
Hallo Elwood

Natürlich kann ich die Funktion hier posten. - Aber nur zur Info vorweg: ich hab am Schluss das Autoredraw = False schon öfters ein und ausgeschaltet - aber es ändert sich nix. 

Private Sub Druck_Zeigen()
 
 
    With pctAuftrag
        If Auftrag = 0 Then
            .AutoRedraw = True
            .FontSize = 10: .ScaleMode = 6: .CurrentY = 32
            pctAuftrag.Print "Brillenauftrag:";
            If frmAdressverwaltung.chkNAuftraege.Value = 1 Then
                Zeile = GetSetting("VOptNeu", "Firmendaten", "Ort") & " am: " & _
                  Format(Now, "dd-mm-yyyy")
            Else
                Zeile = "DUPLIKAT vom, " & _
                  frmAdressverwaltung.lblBAufDatum.Caption
            End If
            .CurrentX = (.Width - 15) - .TextWidth(Zeile)
            pctAuftrag.Print Zeile
            pctAuftrag.Print ""
            .FontBold = True
            .CurrentX = (.Width - .TextWidth(TelFest)) / 2
            pctAuftrag.Print TelFest
            .CurrentX = (.Width - .TextWidth(TelMob)) / 2
            pctAuftrag.Print TelMob
            .FontBold = False
            .CurrentY = .CurrentY + (.TextHeight(TelMob) * 2):
            pctAuftrag.Print Anrede & " " & Titel
            .FontBold = True:
            pctAuftrag.Print NName & " " & VName;: .FontBold = False
            Zeile = "Arzt: " & Trim(Arzt)
            .CurrentX = (.Width - 15) - .TextWidth(Zeile)
            pctAuftrag.Print Zeile
            pctAuftrag.Print Strasse;
            Zeile = "Krankenkassa: " & Trim(KK)
            .CurrentX = (.Width - 15) - .TextWidth(Zeile)
            pctAuftrag.Print Zeile
            pctAuftrag.Print PLZ & " " & Ort;
            Zeile = "Verkäufer: " & Trim(VK)
            .CurrentX = (.Width - 15) - .TextWidth(Zeile)
            pctAuftrag.Print Zeile
        End If
            .FontBold = True
            .CurrentY = .CurrentY + (.TextHeight(BrillenArt) * 2)
            pctAuftrag.Print BrillenArt
            .CurrentY = .CurrentY + (.TextHeight(BrillenArt) * 2)
            Zeile = "PD re: " & PDRe & " PD li: " & PDLi & " NTH re: " & NTHRe _
                & " NTH li: " & NTHLi
            .CurrentX = (.Width - .TextWidth(Zeile)) / 2
            pctAuftrag.Print Zeile: .FontBold = False
            .CurrentY = .CurrentY + 5
            Zeile = "Fas: " & InvNrFas & LiefFas & ArtNrFas & GroesseFas & _
                FarbeFas & "   " & ArtBezFas
            pctAuftrag.Print Zeile: .FontBold = True
            If Trim(sphRe & cylRe & AchseRe & addRe & PrismaRe & VisusRe) = "" _
              Then
                .CurrentY = .CurrentY + (.TextHeight("sph") * 2)
            Else
                Zeile = "RE sph " & sphRe & " cyl " & cylRe & " " & AchseRe & "" & _
                  "Achse " & _
                    addRe & " add PRISMA " & PrismaRe & " VISUS " & VisusRe
                pctAuftrag.Print Zeile: .FontBold = False: .CurrentX = 13
                Zeile = InvNrRe & LiefRe & ArtNrRe & GroesseRe & FarbeRe & "  " & _
                  "" & ArtBezRe
                pctAuftrag.Print Zeile: .FontBold = True
            End If
            If Trim(sphLi & cylLi & AchseLi & addLi & PrismaLi & VisusLi) = "" _
              Then
                .CurrentY = .CurrentY + (.TextHeight("sph") * 2)
            Else
                Zeile = "LI   sph " & sphLi & " cyl " & cylLi & " " & AchseLi & _
                  " Achse " & _
                    addLi & " add PRISMA " & PrismaLi & " VISUS " & VisusLi
                pctAuftrag.Print Zeile: .FontBold = False: .CurrentX = 13
                Zeile = InvNrLi & LiefLi & ArtNrLi & GroesseLi & FarbeLi & "  " & _
                  "" & ArtBezLi
                pctAuftrag.Print Zeile
            End If
            .FontBold = True: .FontUnderline = True
            .CurrentX = (.Width - 15) - .TextWidth(Format(Endbetrag / 100, _
              "###0.00"))
            pctAuftrag.Print Format(Endbetrag / 100, "###0.00")
            .FontBold = False: .FontUnderline = False
 
            pctAuftrag.Print Info
            '.AutoRedraw = False
    End With
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Druckvorschau611Zero-G.24.07.04 10:27
Re: Druckvorschau374Elwood24.07.04 15:58
Re: Druckvorschau440Zero-G.26.07.04 09:31

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel