RE:Tamaño de página con QREPORT, URGENTE
Hola Tienes un lio del mismo diablo...
:)
temgo ese mismo problema pero pude solucionarlo con una forma que la considero como dinosaurio
pero funciona.
1 - Tiene que seleccionar el tipo de papel y ponerlo como Custom (PaperSize = Custom)
Length = tamano definido por ti
Width = ancho definido por ti
2 - En la propiedad de la impresora
poner el papel como definito por el usuario
Custom ; Los valores que trae no tocarlo
de esta forma cuando delphi imprime se ejecuta el paper que previamente definite sin ningu problema..
es la forma como puede hacerlo
pero alquien me envio el siguiente codigo
pero nunca me funciono si puede resolverlo porfavor enviamelo.
suerte..
Debe de usar la unidad printer
Cambia tamaño del papel en tiempo de ejecucion
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
{Set to legal}
pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
pDMode^.dmPaperSize := DMPAPER_LEGAL;
{Set to custom size}
pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;