vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Fortgeschrittene Programmierung
Re: CommonDialog Seiten drucken 
Autor: HIMI
Datum: 14.07.04 19:14

Hallo Guido,

vielen Dank für deine Anwort.

Habe meine Variablen Global deklariert, desshalb der etwas
unübersichtliche Aufbau !!

Im Prinzip ist das Programm aber so aufgebaut,

Private Sub cmdPrint_Click()
' wird im "CommonDialog" auf "Abbrechen" geklickt,
' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
Dim BeginPage, EndPage, NumCopies, i

On Error Resume Next

With CommonDialog1
.CancelError = True
' Dialogfeld Drucken anzeigen
.ShowPrinter
If Err.Number = 0 Then

BeginPage = .FromPage
EndPage = .ToPage
NumCopies = .Copies

For i = 1 To NumCopies
Printer.Print "Hallo das ist ein Test"
Printer.EndDoc
Next i
End If
End With
End Sub

Vielleicht kommst du jetzt weiter ?
Gruß Himi
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
CommonDialog Seiten drucken870HIMI12.07.04 20:27
Re: CommonDialog Seiten drucken580GuidoE12.07.04 23:42
Re: CommonDialog Seiten drucken648HIMI13.07.04 19:51
Re: CommonDialog Seiten drucken611GuidoE13.07.04 21:11
Re: CommonDialog Seiten drucken633HIMI14.07.04 19:14

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-2025 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