sábado, 30 de novembro de 2013

Função que configura valores em décimos de milímitros



Procedure SetPrinterPage(Largura, Altura: LongInt) ;
Var
   Device: Array[0..255] Of char ;
   Driver: Array[0..255] Of char ;
   Port: Array[0..255] Of char ;
   hDMode: THandle ;
   PDMode: PDEVMODE ;
Begin
   Printer.GetPrinter(Device, Driver, Port, hDMode) ;
   If hDMode <> 0 Then
   Begin
      pDMode := GlobalLock(hDMode) ;
      If pDMode <> Nil Then
      Begin
         pDMode^.dmFields := pDMode^.dmFields Or DM_PAPERSIZE ;
         pDMode^.dmPaperSize := DMPAPER_USER ;
         pDMode^.dmPaperWidth := Largura ;
         pDMode^.dmPaperLength := Altura ;
         GlobalUnlock(hDMode) ;
      End ;
      GlobalFree(hDMode) ;
   End ;
End ;

Nenhum comentário:

Postar um comentário