Como cambiar el tamaño de papel de la Impresora

[dec]

Como cambiar el tamaño de papel de la Impresora

Ejemplo 1:


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.PrinterIndex := Printer.PrinterIndex;
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_LEGAL;
GlobalUnlock(hDMode);
end;
end;
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.BeginDoc;
Printer.Canvas.TextOut(100,100, 'Test 1');
Printer.EndDoc;
end;


Ejemplo 2:


procedure TMain.PrintBtnClick(Sender: TObject);
var
nCopies : Integer;
ADevice, ADriver, APort: array [0..255] of Char;
ADeviceMode: THandle;
DevMode: PDevMode;
Margins : TPoint;
Begin
with Printer do begin
GetPrinter (ADevice, ADriver, APort, ADeviceMode);
SetPrinter (ADevice, ADriver, APort, 0); {force a Valid DevMode}
GetPrinter (ADevice, ADriver, APort, ADeviceMode); {Now aDeviceMode is valid}
DevMode := GlobalLock(ADeviceMode);
if NOT Assigned(DevMode) then ShowMessage('Can''t set printer.')
else Begin
with DevMode^ do begin
if CurLabel.Orientation = lrHorizontal then Begin
dmOrientation := DMORIENT_LANDSCAPE;
dmPaperLength := MulDiv(CurLabel.Width, 254, TWIPS);
dmPaperWidth := MulDiv(CurLabel.Height, 254, TWIPS);
End
else Begin
dmOrientation := DMORIENT_PORTRAIT;
dmPaperLength := MulDiv(CurLabel.Height, 254, TWIPS);
dmPaperWidth := MulDiv(CurLabel.Width, 254, TWIPS);
End;
dmFields := dmFields or DM_ORIENTATION;
dmPaperSize := DMPAPER_USER;
dmFields := dmFields or DM_PAPERSIZE or DM_PAPERLENGTH or DM_PAPERWIDTH;
end;
GlobalUnlock(ADeviceMode);
SetPrinter(ADevice, ADriver, APort, ADeviceMode);
end;
end;
nCopies := 1;
Printer.Title := 'LabelWriter Output';
Printer.BeginDoc; { Start Printing...}
{...}
Printer.EndDoc;
End;