Converter codigo delphi para builder

14/04/2007

0

Bom dia

Alguem poderia me converter esse codigo para c++ builder ?

/ muda o tamanho do papel da impressora
//
var
ADevice, ADriver, APort: array[0..255] of char;
DeviceMode: THandle;
M: PDevMode;
s : string;
begin
S := Printer.Printers[Printer.PrinterIndex];
Printer.GetPrinter(ADevice, ADriver, APort, DeviceMode);
M := GlobalLock(DeviceMode);
if M <> nil then
begin
// M^.dmFields := M^.dmFields or DM_PAPERSIZE;
// M^.dmPaperSize := DMPAPER_LETTER;
M^.dmPaperSize := mPaper;
M^.dmFields := M^.dmFields or DM_PAPERLength;
M^.dmPaperLength := mLength;
M^.dmFields := M^.dmFields or DM_PAPERWidth;
M^.dmPaperWidth := mWidth;
Printer.SetPrinter(ADevice, ADriver, APort, DeviceMode);
end;
end;


Grato
Jaime


Jaimesk

Jaimesk

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar