PrtInfo

obj -> PrtInfo(int1[, int2[, int3]]) : int

Objektinformationen ermitteln

Details

• obj: Objekt
• int1: Optionen (siehe Text)
• int2: Count (Optional)
• int3: Typ (Optional)
• Resultat: int Gewünschte Information
• Siehe: Verwandte Befehle , PrtInfoStr () , WinInfo () , Blog

Der Befehl ermittelt Informationen zu dem angegebenen Referenz-Objekt (obj). Als Referenz können Druck-Objekte übergeben werden.

Je nach übergebenen Parameter in (int1) werden unterschiedliche Resultate zurückgegeben:

• _PrtType Rückgabe des Objekttyps
• _PrtRoot Rückgabe des Wurzelobjektes
• _PrtParent Rückgabe des Elternobjektes
• _PrtFirst Rückgabe des ersten untergeordneten Objektes
• _PrtLast Rückgabe des letzten untergeordneten Objektes
• _PrtPrev Rückgabe des vorhergehenden Objektes
• _PrtNext Rückgabe des nächsten Objektes
• _PrtCount Rückgabe der Anzahl der untergeordneten Objekte
• _PrtFrame Rückgabe des Druckvorschau-Dialog-Objektes
• _PrtIndex Rückgabe des Objekt-Index
• _PrtDoc Rückgabe des Druckdokumentes
• _PrtJobPage Rückgabe des aktuellen Seiten-Objektes
• _PrtJobPageCount Rückgabe der Anzahl der Seiten in einem Print-Job
• _PrtInfoPaperCount Anzahl der vorhandenen Papierformate
• _PrtInfoPaperID Nummer des Papierformates
• _PrtInfoPaperWidth Breite des Papierformates
• _PrtInfoPaperHeight Höhe des Papierformates
• _PrtInfoBinCount Rückgabe der Anzahl der Druckerschächte
• _PrtInfoBinID Rückgabe der Nummer eines Druckerschachtes
• _PrtInfoDpiCount Rückgabe der Anzahl der Druckauflösungen
• _PrtInfoDpiX Horizontale Druckauflösung
• _PrtInfoDpiY Vertikale Druckauflösung

Beispiele:

// Ermitteln aller auf dem System installierten Drucker
tPrinterList # _App->ppPrinterList(_PrtListRefresh);
if (tPrinterList > 0)
{
  for   tPrinter # tPrinterList->PrtInfo(_PrtFirst);
  loop  tPrinter # tPrinter->PrtInfo(_PrtNext);
  while (tPrinter != 0)
  {
    // Verarbeitung der Drucker
    tPrinterName # tPrinter->ppCaption;
    ...
  }
}

// Temporären Druckjob öffnen
tJob # PrtJobOpen('', '', _PrtJobOpenWrite | _PrtJobOpenTemp);
if (tJob > 0)
{
  // Druckvorschau-Dialog ermitteln
  tFrame # tJob->PrtInfo(_PrtFrame);
  if (tFrame > 0)
  {
    tFrame->wpCaption # 'Adressen drucken...';
    tFrame->WinUpdate(_WinUpdState, _WinDialogMaximized);
  }
  // Objekt PrintDoc ermitteln
  tDoc # tJob->PrtInfo(_PrtDoc);
  if (tDoc > 0)
  {
    tDoc->ppPageZoom   # _PrtPageZoomPageWidth;
    tDoc->ppPageFormat # _PrtPaperFormatEnv10;
  }
  ...
}
tErr # tJob->PrtJobClose(_PrtJobPreview)

// Alle Druckauflösungen des Standarddruckers ermitteln
tDevice # PrtDeviceOpen();
if (tDevice > 0)
{
  tDpiCount # tDevice->PrtInfo(_PrtInfoDpiCount);

  DbgTrace('DPI count for device [' + tDevice->ppNamePrinter + '] : ' + CnvAI(tDpiCount));

  for   tLoop # 1;
  loop  Inc(tLoop);
  while (tLoop <= tDpiCount)
  {
    tDpiX # tDevice->PrtInfo(_PrtInfoDpiX, tLoop);
    tDpiY # tDevice->PrtInfo(_PrtInfoDpiY, tLoop);

    DbgTrace('[' + CnvAI(tLoop, 0, 0, 2) + '] ' + CnvAI(tDpiX) + 'x' + CnvAI(tDpiY));
  }
}
tDevice->PrtDeviceClose();