Druckdialog Einstellungen ohne VCL

[Luckie]

So, ich habe einen Druckdialog, der auch wunderbar funktioniert. Nur ist es erforderlich, dass man beim Drucken Querformat auswählt, sonst wird das nichts.

Dazu muß man die DEVMODE-Struktur füllen. Und diese dann an die PRINTDLG-Struktur übergeben:

Delphi-Quellcode:

var
  pd   : TPrintDlg;
  dm   : TDevMode;
begin
  ZeroMemory(@pd, sizeof(TPrintDlg));
  Zeromemory(@dm, sizeof(TDevMode));
  dm.dmOrientation := DMORIENT_LANDSCAPE;
  pd.lStructSize := sizeof(TPrintDlg);
  pd.hWndOwner   := hWnd;
  pd.Flags       := PD_ALLPAGES or PD_COLLATE or PD_RETURNDC or PD_NOSELECTION;
  pd.hDevMode    := dm;  // <- Hier sagt er mir: [Fehler] Inkompatible Typen: 'Cardinal' und '_devicemodeA'
  pd.nCopies     := 1;

Weiß jemand, wie ich das richtig machen muß?

[Chewie]

Zitat von Luckie:

Weiß jemand, wie ich das richtig machen muß?

Das weiß ich nicht, aber ich sehe, was du falsch gemacht hast. Die TPrintDLg-Struktur verlangt ha in hDevMode ein Handle auf die DevMode-Struktur, nicht ein Zeiger auf die Struktur oder die Struktur selber. Bei der PrintDlg-Funktion steht ja folgendes über dieses Feld dabei:

Zitat von MSDN:

Handle to a movable global memory object that contains a DEVMODE structure

Was genau damit gemeint ist, steht nicht so klar dabei, aber vielleicht kannst du damit was anfangen.

[Luckie]

Ja das habe ich auch schon gefunden. Nur wo ein Handle hernehmen, wenn nicht stehlen.

[Chewie]

Ich hab gerade mal im SDK bisschen rumgelesen. HeapAlloc

Zitat:

allocates a block of memory from a heap

, aber

Zitat:

The allocated memory is not movable

. Vielleicht findest du herraus, wie man ein "movable block of memory" erzeugt.

[MathiasSimmack]

Habe leider keinen Drucker zum Testen zur Hand, aber probier´s mal damit:
Move(pd.hDevMode,dm,sizeof(TDevMode)); Verursacht zumindest keinen Fehler.

[Luckie]

Kompilieren tut er, nur wird nicht auf Querformat umgeschaltet im Druckdialog.

[MathiasSimmack]

Sorry, Luckie, kann ja auch nicht gehen. Rein logisch, meine ich. Ich versuche ja den Inhalt eines Records auf eine Cardinal-Variable zu übertragen. Als Anregung hätte ich jetzt noch das hier

Delphi-Quellcode:

var
  hdm : THandle;
  pdm : PDevMode;
begin
  hdm := GlobalAlloc(GMEM_MOVEABLE or GMEM_ZEROINIT,
    sizeof(TDevMode));
  pdm := GlobalLock(hdm);

  pdm^.dmDeviceName  := 'Druckername';
  pdm^.dmSize        := sizeof(TDevMode);
  pdm^.dmOrientation := DMORIENT_LANDSCAPE;


  { ... }
  pd.hDevMode        := hdm;
  { ... }


  GlobalFree(hdm);
end;

Er bringt zwar den Dialog zum Vorschein (wenn der Druckername stimmt!), aber stellt auch nicht auf Querformat um. Entweder habe ich was vergessen, oder so funktioniert´s auch nicht.

[Luckie]

Verdammt. Es muß doch eine Möglichkeit geben, das Querformat voreinzustellen. Ich kann ja nicht in der Readme schreiben, dass man Querformat auswählen muß.

[emkay]

Ich weiß nicht ob Dein Problem schon gelöst ist, ich hab aber noch einen Tip!

Die Devmode-Struktur besitzt noch eine Variable dmFields. Jedes Bit dieser Variable repräsentiert einen Flag zu einer Einstellung. Diese Flags müssen jedoch extra initialisiert werden!!! Den nur initialisierte Einstellungen werden berücksichtigt.

In Deinem Fall müsste es heißen:


pdm.dmFields := pdm.dmFields OR DM_ORIENTATION;


Hoffe geholfen zu haben!!

emkay

[Luckie]

Puh, hast du mal auf das Datum gekuckt? Aber hattest recht, das Problem war noch nicht gelöst. Wird aber demnächst wieder aktuell.