Hallo Support,
ein Mitarbeiter hat eine PDF mit dem PDF-X-Change-Editor bearbeitet und einen Text und ein roten Pfeil eingezeichnet und gespeichert.
Mit dem PDF-Editor wird es normal angezeigt und ausgedruckt.
Wenn die PDF in der Anzeigekomponente von WPViewPDF4 anzeige ist der Pfeil verschoben und beim Ausdruck auch.
Wie kann ich Ihnen die PDF schicken?
Grüße
Bernd König
schade....bräuchten wir gerne!
Hallo,
unser User möchten Text in die PDF einfügen.
Wir haben das mit :
ac := 327686; // = freetext
res := pdf.CommandStrEx( COMPDF_ACTIONNR, s, ac);
versucht, jedoch wird der Text bei einer gedrehten PDF immer in der "ursprünglichen Drehposition" angezeigt. Also bei 90 grad Drehung wird der Text wieder in der 0-grad-Drehung angezeigt.
Wie kann man den Text oder das DrawText-Objekt in die "richtige Position" drehen?
Gibt es da evtl. ein Code-Beispiel? (Auch für die Veränderung der Schrift, Farbe etc.)
Schon klar, ohne A3-Drucker kann man so ein Testfall nicht nachstellen.
Die PDF-Programme Adobe und z.B. PDF-X-Change beherrschen das, wenn man im Druckdialog zusätzlich die
Checkbox "Papiergröße anhand der Dokumentenseitengröße wählen" anhakt!
Moin aus Hannover,
unsere User haben in unserer Warenwirtschaft oft mehrere Zeichnungen in einer PDF.
Wenn ich z.B. über WPViewPDF.Print('1-3') alle 3 Seiten drucke, kommen alle als A4-Druck heraus;
stelle ich vorher den Druck über Printersetup auf A3 kommen alle als A3-Druck heraus.
Ich möchte aber die Originalgröße gedruckt haben, also A4, A3, A4...
was muss ich tun?
PS. In der Demo PDFView4 funktioniert der Druck mit so einem PDF auch nicht richtig...
Bernd König
Moin aus Hannover,
hab es selbst hinbekommen:
im onViewerMessage gibt es eine Message: MSGPDF_MOVEPages
case ID of
MSGPDF_MOVEPages:
btnTextSave.Visible := True;
.....
end;
damit gehts!
Die Drehung wird mit PDF.CommandStrEx(COMPDF_RotatePage, IntToStr(PDF.Page), 90) durchgeführt.
Nachdem wir auf die neueste Version (25.02.2021) upgedatet haben, funktioniert es!
wenn man z.B. ein PDF um 90grad dreht, sieht man in der Thumbnail-Anzeige bei mehrseitigen PDFs auch die Drehung (ausser bei der letzen PDF-Seite!?!).
Hat das PDF nur eine Seite, funktioniert die die Drehung in der Vorschau NICHT!
Können Sie das mal prüfen, Danke.
Grüße aus Hannover
Bernd König
Hallo,
gibt es ein Ereignis für das Verschieben von Seiten innerhalb eines PDF's. (z.B. OnMovePage)
Grüße aus Hannover
Bernd König
Eine Umschaltung von Farbe findet nicht statt.
Wie kann man feststellen, ob das PDF eine Farb-PDF oder SW-PDF ist?
In einem Druckdialog angezeigtes TWPViewPDF-Objekt soll automatisch auf die richtige Größe gedruckt werden.
(wie z.B. im Adobe-Dialog "Papierquelle gemäß PDF-Seitengröße auswählen").
Was muss ich da vorher setzen?
if cbAutoSize.checked then
PDF.Command(COMPDF_SelectPaperSize, Automatic.....???
sowie die Page-Orientation...???
Weiterhin sollte bei farbigen PDF's automatisch auf Farbe geswitched werden!
Zum Drucken benuzte ich dann:
Result := CommandStr(COMPDF_Print, range);
Hallo,.
Die draw objekte werden nicht gespeichert. Sie müssen erst mit einem RENDER kommando auf die PDF gezeichnet werden
Und wie geht das Rendern? Bitte ein Beispielcode; danke.
OK, das funktioniert.
Danke.
Aber ich werde für das Drucken einer Überschrift doch wohl eher die Funktion "pdfPrintW" mit den Optionen nutzen.
Damit kann man besser z.B. oben links den Benuzternamen, rechts das Druckdatum und am Seitenende eine eventuelle
Seitennummerirung drucken.
Grüße aus Hannover
Ah, das habe ich mir nämlich gedacht. Wir arbeiten hier immer mit PDF-Dateien aus Blob-Feldern die dann als memorystream
geladen werden (pdf.Loadfromstream(Blob-Feld....)).
Das war der entscheidende Hinweis: memorystream.Memory !!! Damit funktionierts!
var
sWideOption : WideString;
oStream : TMemoryStream;
….
sWideOption := '"HEADERR='+dateTimetostr(now)+'"';
if lDuplex then
sWideOption := sWideOption + ','+'"DUPLEX=2"';
……
pdfPrintW('','',
PWideChar(WPViewPDF_LicName), PWideChar(WPViewPDF_LicKey), WPViewPDF_LicCode,
PWideChar(sOption),
oStream.Memory, oStream.Size);
Danke!
If i print this rotated 90 Degrees PDF, the PDF prints in DIN A4 Portrait and not rotated in landscape.
How can i do that?
Danke für den Hinweis, aber ohne Beispiel in Delphi kann ich damit nichts anfangen...Bitte.
In der Dokumentation stehen immer nur die Rudimentären Befehlsstrukturen der einzelnen Kommandos,
aber wie man die sinnvoll einsetzt fehlt an allen Ecken und Enden.
Sorry, the documentation says (Site 183):
pdfPrintW has two additional parameters data and datalen. If not 0, a buffer
with PDF data is expected which is loaded or, if a file was also specified, appended
prior to printing.
How can i understand this???
OK, nächster Versuch für eine geladene PDF eine Überschrift (HEADER) zu drucken:
PDF: TWPViewPDF;
………..
procedure TfrmMain.mnuDruckClick(Sender: TObject);
var
i : Integer;
b : Boolean;
cText : string;
begin
cText := 'Auftrag 4711';
with dlgPrint do begin
MinPage := 1;
MaxPage := PDF.PageCount;
FromPage := 1;
ToPage := PDF.PageCount;
if Execute then begin
PDF.BeginPrint(Printer.Printers[Printer.PrinterIndex]);
// gibt es hier PDF-Commands für das Drucken einer Überschrift Links Mittig Rechts etc. ???
PDF.PrintPages(dlgPrint.FromPage, dlgPrint.ToPage);
PDF.EndPrint;
end;
end;
end;
Das Beispiel funktioniert soweit, bis auf die Überschriften.
Bitte mit kurzem Beispiel, Danke.
How am I able to print the loaded PDF with the Function pdfPrintW?
My Code:
TfrmMain = class(TForm)
PDF: TWPViewPDF;
……
function pdfPrintW(filename: PWideChar; password: PWideChar;
licname, lickey: PWideChar; liccode: Cardinal;
options: PWideChar;
data: Pointer; datalen: Integer): Integer; stdcall;
external 'wPDFViewPlus04.dll' name 'pdfPrintW';
pdfPrintW('','',
PWideChar(WPViewPDF_LicName),
PWideChar(WPViewPDF_LicKey),
WPViewPDF_LicCode,
PWideChar(sOption),
PDF,100000);
I get an exception with "Unknown file Format" !
Is there a Delphi-sample?
Best regards
Bernd
Moin,
ich versuche gerade eine Seitenüberschrift beim Ausdruck vom PDF-Dateien zu drucken, aber es kommt nichts!
Quellcode:
// z.B. für Beispiel für dynamisches Drucken von PDF'S
procedure PrintPDF(APrinterIndex: Integer; AFileName: String; APrintTitle: String);
var
vForm: TForm;
vWpViewPDF: TWPViewPDF;
begin
vForm := TForm.Create(nil);
vForm.Visible := False;
vWpViewPDF := TWPViewPDF.Create(vForm);
vWpViewPDF.Parent := vForm;
try
vWpViewPDF.filename := AFileName;
vWPViewPDF.BeginPrint(Printer.Printers[APrinterIndex]);
vWpViewPDF.CommandStr(COMPDF_SetPrintTitle, APrintTitle); // Hierum geht's: COMPDF_SetPrintTitle !!!
vWPViewPDF.PrintPages(1, vWpViewPDF.PageCount);
vWPViewPDF.EndPrint;
finally
FreeAndNil(vWpViewPDF);
FreeAndNil(vForm);
end;
end;
Was mache ich falsch?
...und gibt es evtl. ein paar Delphi-DEMOs, die sich mit der Drucksteuerung beschäftigen (z.B. Umschalten auf A3-Druck, bin-Ansteuerung, in Druckbereich einpassen etc.).
Heute habe ich Ihr Beispiel aus dem Handbuch Seite 145 (Kapitel 6.7.2) eingegeben...als Ausdruck kommt auch nur eine leere Seite!
VG
Bernd
