var
  bounds: NSRect;
  rep: NSBitmapImageRep;
  data: NSData;
  ms: TMemoryStream;
begin
  TMSFMXNativeNSView1.View.lockFocus;
  bounds := TMSFMXNativeNSView1.View.bounds;
  rep := TNSBitmapImageRep.Wrap(TNSBitmapImageRep.Wrap(TNSBitmapImageRep.OCClass.alloc).initWithFocusedViewRect(bounds));
  TMSFMXNativeNSView1.View.unlockFocus;
  data := rep.representationUsingType(NSPNGFileType, nil);
  //save to file
  data.writeToFile(NSSTR(TPath.GetDocumentsPath + PathDelim + 'test.png'), False);
  //save to stream
  ms := TMemoryStream.Create;
  ms.Write(data.bytes, data.length);
  Image1.Bitmap.LoadFromStream(ms);
  ms.Free;
  rep.release;

MacApi.AppKit
MacApi.ObjectiveC
MacApi.ObjcRuntime

var
  printInfo: NSPrintInfo;
  printOperation: NSPrintOperation;
  fv, dv: NSView;
begin
  printInfo := TNSPrintInfo.Wrap(TNSPrintInfo.OCClass.sharedPrintInfo);
  fv := TNSView.Wrap(objc_msgSend((TMSFMXNativeWebView1.WebView.mainFrame as ILocalObject).GetObjectID, sel_getUid('frameView')));
  dv := TNSView.Wrap(objc_msgSend((fv as ILocalObject).GetObjectID, sel_getUid('documentView')));
  printOperation := TNSPrintOperation.Wrap(TNSPrintOperation.OCClass.printOperationWithView(dv, printInfo));
  printOperation.setShowPanels(True);
  printOperation.runOperation;
end

var
  input: TStringList;
  output: String;
  I, J: Integer;
begin
  input := TStringList.Create;
  input.Add(ExtractFilePath(ParamStr(0)) + 'Egypt.pdf');
  input.Add(ExtractFilePath(ParamStr(0)) + 'BoraBora.pdf');
  input.Add(ExtractFilePath(ParamStr(0)) + 'London.pdf');

  output := TPath.GetDocumentsPath + '/Merged.pdf';
  TMSFMXNativeMacPDFLib1.BeginDocument(output);
  for I := 0 to input.Count - 1 do
  begin
    TMSFMXNativeMacPDFLib1.OpenDocument(input[I]);
    for J := 1 to TMSFMXNativePDFLib1.GetPageCount do
    begin
      TMSFMXNativeMacPDFLib1.GetPageInfo(J);
      TMSFMXNativeMacPDFLib1.NewPage;
      TMSFMXNativeMacPDFLib1.DrawPage(J);
    end;
    TMSFMXNativeMacPDFLib1.CloseDocument;
  end;
  TMSFMXNativeMacPDFLib1.EndDocument;

  input.Free;
end;