Seite 3 von 3 ? [erledigt]

[AUGE_OHR]

hi,

ich drucke über XbpPrinter meine Rechnungen. Nun fragte man mich ob man auch die Seite 3 von 3 drucken könnte ... ich drucke immer alles von einer Rechnung.

wie kann ich den eine Abfrage einbauen "welche" Seiten man drucken will ?
wenn ich den :Dialog benutzte "wirkt" es doch auf "alle" Rechnungen, aber ich will nur von der Rechnung 1234 die Seite 3 von 3.

p.s. da ich "variabel" drucke weiss ich "vorher" ja nicht wie viele Seiten es werden ...

[brandelh]

Hi,

das Problem hatte ich bei meiner Druckerklasse auch

ich führe dort eine Instanzvariable die alle zu druckenden Seiten enthält (verschiedene Kombinationen möglich).
Bei jeder Druckmethode (Textzeile, Grafik, Memofeld etc.) wird geprüft ob auf der aktuellen Seite gedruckt werden darf.
Wenn nicht werden die GraFunktionen übersprungen, der Zeilenvorschub aber mit berechnet ...

[Rolf Ramacher]

Hi Jimmy,

ich hatte mal das gleiche Problem bei Listen. Meine Listen sind als Vorlage-----.RTF definiert. Diese lese ich eine - ersetze mit strtran und übergeben an Word mit ActiveX -

der Befehl sieht so aus: Vielleicht kannst du ihn gebrauchen.

Code: Alles auswählen

		aSeite:=oDlg:pageRangeSelected
		oDoc:PrintOut(.f.,Nil,wdPrintFromTo,Nil,alltrim(str(aSeite[1])),alltrim(str(aSeite[2])),Nil,1 )

[AUGE_OHR]

hi,

Danke für eure Antworten, ich habe eine "einfache" Lösung" gefunden :

Zum GUI Drucken brauche ich immer eine Presspace ... und den "lenke" ich nun bei Bedarf an die Preview weiter.

C:\ALASKA\XPPW32\Source\samples\solution\Preview\Preview.prg
allerdings habe ich die beiden Methoden :

Code: Alles auswählen

PROTECTED:
*   METHOD startDoc                // Drucken beginnen
*   METHOD endDoc                  // Drucken beenden

EXPORTED:
   METHOD startDoc                // Drucken beginnen
   METHOD endDoc                  // Drucken beenden

vom PROTECTED: in den EXPORTED: Bereich verschieben müssen um nun meine "Seiten" in die einzelnen GraSegXXX zu "drucken".

Nun muss man nur noch eine Methode

Code: Alles auswählen

METHOD XbpPreview:PageToPrint()
LOCAL i

   IF LEN( ::segments ) == 0
      RETURN self
   ENDIF
   ::startDoc()
   // hier wird nur die aktuelle Seite gedruckt.
   ::drawPage( ::nPagePos )
   ::endDoc()

RETURN self

hinzufügen (die andere druckt alle Seiten) und der User bekommt "die" Seite gedruckt die er gerade "sieht".